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Heeft u wel eens het probìieem, dat bij het 
*CAT-ten van een disk in de naam van een 
programma een spatie staat? 


Voorbeeld: 

>*CAT 

TITEL DRIVE O OUAL 
: BLINK TEST CA 


Het programma “TEST CA" is in zo'n geval niet te 
laden, omdat bij diskettegebruik geen spaties in 
de naam mogen/Kunnen staan. Met het commando 
“RENAME kun je dan dus ook niets beginnen. 


Oplossing: 
Maak een hexdump van #2000: 


>HEX#2000 

2000 54 49 54 45 T 
2008 42 4C 49 4E B 
200C 4B 20 20 20 K 
2010 54 45 53 54 T 
2014 20 43 A1 20 
enz. 


TC 20 20 20 L 
I 


U ziet hier dat de foutieve naam staat van 
#2010-#2017, Op #2014 staat #20 wat de 
ASCII-waarde is voor een spatie. In dit geval is 
dat ook de spatie in de foutieve naam. 

Door nu deze waarde te wijzigen in bijvoorbeeld 
#2D (het teken '-'), wordt de naam "TEST-CA". 
Dit doet u door in te toetsen: 


>2#2014=#2D {RETURN} 


Nu moet de gewijzigde catalogus nog naar de 
diskette geschreven worden. Doe dit door 
achtereenvolgens: 


>LINK#E75B;LINK#E74A {RETURN} 


in te toetsen. (#E75B laat de drívemotor lopen 
en #E74A schrijft de gewijzigde catalogus naar 
de diskette.) 

Met een >*CAT kunt u dit controleren. 


Overigens gelden de adressen #E75B en #E74A 
alleen voor de originele DOS-ROM. Voor andere 
DOS-ROM'S moeten deze worden aangepast. 
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Het programma "SCREENDUMP” definieert een dump-eommanda waarmee 
gen 'CLEAR 4' scherm van de Atom op 2 verschillende manieren 
kan worden getekend, namelijk als klein (256*192) of als groot 
C768*384) plaatje, In het laatste geval wordt het &K plaatje 
doodeenvoudig vargroot afgedrukt! 

Hest programma is geschreven in P-Charme en benodigt de 
mini-assembler. De routine is gedefinieerd als P-Charme 
uitbreidings-statement , 


De syntaxis van het statement ’GDUMP' (kies eventueel een 
andere naam) is als volgt: 


’GDUMP Caode (‚masker C‚hor.verpl. [‚relocatie-adres J111' 


2oals U ziet, zijn alle 4 parameters optioneel. 
Ze zullen nu een voor een worden besproken. 


* mode 

Hiermee kunt U kiezen tussen een kleine CO) en een grote afdruk 
(1) op de printer. De default-waarde is O (60 puntjes per inch 
horizontaal), 


* masker 

Deze parameter bepaalt de wijze waarop de tekening wordt 
weergegeven op de printer. Normaal dient U hier ofwel O ofwel 
=1 in te vullen. In het eerste geval wordt alles wat wit is op 
het scherm zwart op de printer en omgekeerd, in het tweede 
geval maakt de printer een exacte copie van het scherm. Met 
andere waarden kunnen speciale effecten worden bereikt: zie bv. 
het dump-programma voor de Epson printer dat Bram Poot schreef: 
AN. #4, pp,54-57, De default-waarde is 0, 


* horizontale verplaatsing 

Met deze parameter kan het plaatje een aantal posities naar 
rechts worden verschoven, bv. om het precies in het midden te 
krijgen: zie weer het programma van Bram Poot, 

De default-waarde is cok hier 0, d.w.z. geen verplaatsing. 


* relocatie-adres 

Deze laatste parameter biedt de mogelijkheid om ook een afdruk 
ts kunnen maken van een tekening die, om welke reden dan ook, 
niet vanaf #8000 maar elders in het geheugen ligt opgeslagen. 
De waarde van de parameter wordt beschouwd als het 'high byte’ 
van het startadres van de tekening: bij #40 bv. wordt dan het 
geheugengebied van #2000-#5800 als tekening beschouwd en 
dienovereenkomstig afgedrukt! De default-waarde is #80. 


De routine zal een Foutmelding genereren als de printer niet 
is ingeschakeld of als de opgegeven plat-mode groter is dan 1. 
De routine kan worden gestopt met de 'ESC'-toets, 

De machinecode beslaat 274 bytes. De routine benodigt 
tijdelijk 11 ZP-bytes: hier is dit #70-#7A (regels 250-350), 
wat eventueel aangepast kan worden. 

Tenslotte: de routine is ontwikkeld voor de Star SG-10 
printer. In principe moet zij echter op alle Star printers 
kunnen draaien. Ook trouwens op alle Atoms, want er is geen 
aansluiting voor een Be printerbit vereist! Veel plezier ermee. 


GDUMP _ JOOP ENGELS 


ATOM NIEUWS PAG. / 








10 PROGRAM SCREENDUMP 510 DEC #03 

zo 620 CMP @SEMICOL 

30 PRINI $21;GOSUB a 5630 BEG CLOSE 

40 PRINT $06;GOSUB a B40 CMP BCR 

50 550 BEG CLOSE 

50 $T=-”GDUMP”; T=T+LENCTD 560 

70 PT-DUMP/256 {#80 ; TP1=DUMPX255; T?2=#B0; T=T+2 

BO A=P;T!1=A 570 \READ PARAMETERS 

30 END 680 JSR PARAM 

100 680 CPY @#02 
110aC 700 BCS DUMP+1 
120 710 STY MODE 

130 „BA A 720 JSR COMMA 

140 .TA #3800 730 BCS CLOSE 

150 740 JSR PARAM 
150: STX = HOP 750 TYA 

170: ETX = #03 750 AND G#3F 
180: CR = #OD 770 STA IMASK 
190:ESC = #1B 780 JSR COMMA 
200: SPACE = #20 790 BES CLOSE 
210:SEMICOL = #3B B00 JSR PARAM 
220: Ast’ A = #41 B10 SIY KPOS 

230: ASC'K = #48 B20 JSR COMMA 
240: ASC'L = HUC B30 BCS CLOSE 

250 B40 JSR PARAM 
250: MODE = #70 B50 SIY PI+1 

270: IMASK = #71 860 
280: HPOS = #72 670: CLOSE 

230: PT = #72 880 JSR STAT'END 
300:BITMASK = #75 830 

310: GBYTE = #76 300 \PRINTER READY? 
320: VERTCOLUINT= #77 910 LDA PR'STATUS 
330:GR'MODE = #7B Seo BMI DUMP+1 
340: LINECOUNT= #79 930 
350: BETNUM = #7A S40 \INIT MODE 
360 950 LD& MODE 
370:PORI'B _= #B0O01 950 BNE BIG 

ORT'CIRL= #BOO3 870 
R'STATUS= #BB01 380: LITILE 

400: COMMA = #C231 830 LDA E#CO 
H10:STAT'END = #CHES 1000 STA VERTCOUNT 
420: BASIC = #CS5B 1010 LDA EASC'K 
430: PARAM = #CF3E 1020 STA GR'MODE 
440 : NCHAR = #F2I1 1930 LDA e32 
450:PRORIVE = #FEFB 10480 STA LINECOUNT 
H50:PR'DIR = #FFOB 1050 LDA @1 
470 1050 STA BITNUM 
480 1070 BNE BEGIN 
450: DUMP 1080 
500 \INIT POINTERS 1030:BIG 
510 LDA @#00 1100 LOA @#50 
520 SIA MODE 1110 STA VERTCOUNT 
530 STA IMASK 1120 LOA GASC'L 
540 SIA KPOS 1130 STA GR'MODE 
550 STA PT 1140 LDA E64 
560 LDA @#A0 1150 SIA LINECOUNT 
570 SIA PI+1 1150 LDA @3 
580 1170 STA BITNUM 
530 \CHECK FOR END 1180 
600 JSR NCHAR 11390: BEGIN 


1200 
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1210 \PRINTER ON 
1220 LDA @STX 

1230 JSR PRDRIVE 
1240 

1250 \SET LINE SPACING 
1260 \TO 6/72 INCH 
1270 LDX 26 

1280 JSR LINE'SPACING 
1230 

1300 \TAB X SPACES 
1310: SPACES 

1320 LOX KPOS 

1330 BEQ GRAPH 
1340 LDA @SPACE 
1350: SPACEPRINT 
1350 JSR PRORIVE 
1370 DEX 

1380 BNE SPACEPRINT 
1380 

1800 \INIT GRAPHIC MODE 
1410: GRAPH 

1420 LDA GESC 

1430 JSR SEND 

1440 LDA GR’MODE 
12450 JSR SEND 

1460 LDA @#00 

1470 JSR SEND 

1480 LDA BITNUM 
1480 JSR SEND 

1500 

1510 \SEND GRAPHIC BITS 
1520 LDY @#00 

1530 

1540:NBYTE 

1550 LDA @#80 

1550 STA BITMASK 
1570 

1580: LOOP1 

1590 STX GBYTE 
1600: LOOP2 

1610 LDA CPT),Y 
1620 AND BITMASK 
1630 CMP @e#O1 

1640 PHP 

1650 ROL BBYTE 
1560 PLP 

1670 LDA MODE 

1580 BEQ INCREMENT 
1680 ROL GBYTE 
1700: INCREMENT 
1710 TYA 

1720 CLC 

1730 ADC @#e20 

1740 TAY 

1750 CMP VERTCOUNT 
1750 BCC LOOPe2 
1770 SBC VERTCOUNT 
1780 TAY 

1790 LDA GBYTE 
1800 EOR IMASK 


1810 
1820 
1830 
1840 
1850 


1860: 


1870 
12880 
1850 
1800 
1310 
1320 
1930 
1840 
1350 
1860 
1370 
1380 
1830 
2000 
2010 
2020 
2030 
2040 
2oso 
2060 
2070 


2080: 


2030 
2100 
2110 
2120 
2130 


2140: 


2150 
2150 
2170 
2180 
2130 
2eoo 
2e10 
eeeo 
2230 


2240: 


2250 
2250 
2270 
2280 
2e30 
2300 


2310: 


2deo 
2330 
2340 


JSR SEND 
CPX MODE 
BEQ NBIT 
JSR SEND 
JSR SEND 
NBIT 

LSR BITMASK 
BNE LOOPI 
INY 

CPY @#20 
BNE NBYTE 
LDA @CR 
JSR PRORIVE 


\ESCAPE KEY? 
LOA PORT’B 
AND @#20 

BEQ OUIT 


\UPDATE POINTER 
CLE 

LDA PT 

ADC VERTCOUNT 
STA PT 

BCC TEST 'IF’READY 
INC PT+1 


TEST’ IF 'READY 
DEC LINECOUNT 
BNE SPACES 


\RESET PRINTER TO 
\6 LINES PER INCH 
QUIT 

LDX @e12 

JSR LINE'SPACING 


\PRINIER OFF 
LDA BETX 
JSR PRORIVE 


JMP BASIC 


LINE'SPACING 
LDA @ESC 
JSR SEND 

LDA @ASC'A 
JSR SEND 
TXA 


SEND 
PHA 
JMP PR°DIR 


23501; RETURN 
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Dit is het vervolg van de serie gestruktureerd programmeren {Deel 3). 
in het vorige deel heb ik meegedeeld, dat ik mijn oplossing van het 
sortser-probleem zou geven, nou hier komt hij dan : 


PROGRAM SORTEER 


PROC INTIALISEER, T,G 
FOR Tet TO 19 


INPUT G 
TTT =ä 
NEXT T 
PEND 


PROC DRIK-AF-TABEL.T 
FOR Tai TO 19 
PRINT TTET)’ 
HEXT T 
PEND 


PROC SORT, K,L 
FOR Ket TO 49 
FOR Lei TO 2 
IF TTALODTT(L+ES THEN VERWISSEL 
NEXT L 
NEXT K 
BEND 


PROC VERUISSEL,H 
H=TT (1) 
TILL ETT (LAD 
TTH =H 

PEND 


DIM TT(16} 
INITIALISEER 
SORT 
DRUK-AF-TABEL 
END 


Ik heb getracht om het programma rechtover te zetten van PsÒ naar 
BAIC (met uitzondering van het 'DIM’ statement, daar deze niet binnen 
procedure's of functies mogen staan). 

Hu is aak te zien dat regelnunmers niet nodig zijn, ze moeten er nog 
voor warden geplaatst. Ook is te zien dat door in te springen, de 
ruktuur van het programma rog dui ijker uitkomt, 
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Als U zelf al geoefend hebt in het tekenen van PSD's zal het U zijn 
opgevallen, dat ze veel makkelijker te tekenen zijn als de FLOW, 

U hebt alleen een potlood of pen en gom nodig en een liniaal (een 
tekenmal is zelfs omslachtig), 


Bij het tekenen van PSD moet U er wel aan denken, dat een PSD niet 
groter kan zijn dan het velletje papier waar hij op wordt getekend, er 
bestaat nl, geen mogelijkheid om aan te geven dat het vervolg van de 
PSD op een ander vel verder gaaat, (bij de FLOVU is dit wel mogelijk 
door gebruik te maken van connectors). 


Als het wel groter is moet U kijken of in dit grote PSD vok gedeelten 
aanwezig zijn, die aangeroepen kunnen worden als een subroutine of 
procedure of functie, die U dan ap het andere velletje tekend. 

Hiermee wordt berijkt, dat Uw programma is opgebouwd vit een aantal 
eenheden (module's), waardoor het veel overzichtelijker is, zodat 
later fouten gemakkelijker kunnen worden opgespoord. 


Nu gaan we een iets complexer programma ontwikkelen, nl. en spel, 


We kennen dit spel allemaal wel:, je hebt sen aantal domino-stenen 
oid, op tafel liggen, je speelt het met twee personen, en je neemt om 
de beurt 1,2 of 3 stenen van de stapel, en wie de LAATSTE steen 
wegneemt heeft VERLOREN, 

Nu is het helaas zo, dat als je de truck kent, niemand meer met je wil 
spelen. 

Het zou daarom mooier zijn als onze computer voor tegenstander kon 
spelen (en als het kan een sterke tegenstander is), 


Hoe pakken we het aan? 

We gaan eerst kijken hoe de loop van het erogramma is: 

het programma stopt als alle stenen weg zijn. Simpel toch?? 

We hebben dus het volgende PSD al klaar: (de variabele 'STENEN' geeft 
het aantal stenen aans het aantal is van te voren bekend). 


SPEL 


[ \speel’ 


TOTDAT STENEN =D 











Binnen “SPEEL” nemen de camnuter en wij om de beurt een 
van de stapel (1,2 of 3 stenen), 

Om ons zelf een kans te geven om te winnen, nemen we 
beurt, en na elke beurt controleren we de stand (stenen=2), 
In 'ZET VAN SPELER' en "ZET VAN COMPUTER’ nemen de zpe 
computer ieder een aants} r z 
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Speel 
































Deulk AF “er 2u nog NysTeven) Ss Teven ove” | 
Yzer van speler) 
STEWEN =O 
LJa vee 
pruk Af “ER 2YW weg 
‘peuk aP } STENEN, “ STENEN OVER 
“pe Lompuren VET VAN COMPUTER | 
wow en STENEN = O 
heerk ye aal za 
Druk AF “ De 
Spelen HEEFT, 
GewWONMe 

















is geworden, heeft de 
hierdoor verloren, 


stenen @ 
nomen en 


het zantal 
af stenen we 
t beeindiad 
‘geldt het zelfde, 


ER' verder uitwerken, 
en om hem geldig te taten zijn? 





DT 


d 






an t zijn, EN 
8 zijn, EN 

het aantal nog aanwezigestenen zijn 
sijne wit is), 


EN 


hieraan niet is voldaan! opnieuw, 
controle kunnen we ook laten zien waarom de 
het PSD kan er dan zo uit komen te zien: 

innen met het nnemen van een onaeldia: 


en keer iets moeten invoeren). 







zet ongeldia 


zet, zodat we in ieder 


Ta 
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ZET VAN speler 













Druk ar “hoeveel STenau” 


Loeki  Gaubol 


mat 
Stann := STEN En — Gaubal 


Als aan alle voorwaarden is voldaan, komen we in de meest rechtse 
'NEE' tak van de uitvraging terecht, waar de beurt 'GELDIG' wordt 
verklaart, en wij de procedure 'ZET VÁN SPELER’ verlaten, 


Hierna is de beurt aan de computer om een aantal stenen te nemen, Oit 
is moeilijker om in een programma te verwerken, want als men alleen 
een random aantal van 1,2 of 3 zou nemen, dan zou de computer nooit 
kunnen winnen, tenzij wij nog dommer zouden zijn... 

Koe kunnen we de computer “intelligentie” geven dus hoe 'weet’ de 
computer hoe hij het spel kan winnen. 


Laten we uitgaan van onszelf: (WE), tegen de computer: (HIJ), 


Wanneer weten we zeker dat we gewonnen hebben? 

Juist, als na onze beurt er nog 1 steen liet. Die hij dus weg moet 
nemen, We mogen maar 1,2 of 2 stenen weg nemen, dus tijdens onze beurt 
lagen er nog Itt of 142 of 143 stenen (is dus 2,3 of 4 stenen), 
Hoeveel stenen heeft hij er hiervoor dan gehad??? 

Als hij maximaal 3 stenen maa wegnemen iwij houden dan het minimale 
aantal over (=2)) had hij er dus 24+3=5 stenen (S-i=4, 5-2=23, 5-3=2 
stenen voor ons), In onze beurt daarvoor hebben wij er dus voor 
gezorgd dat hij er 5 kreeg, 

Wij hadden er dus 5+1=65,542=7 of 54228 stenen, en daarsaor had hij er 
dus 9 (ga zelf maar na (zie voorgaande bij 5 stenern)), 


Als we het voorgaande bekijken, komen we tot de conclusie dat we de 
tegenstander een aantal stenen moeten geven, waarvan we zeker weten 
dat we dan zullen winnen, 
Deze aantallen zijn in iederaeval | en 5. we hadden ook al 9 gevonden 
(ziet u al de regelmaat 7277), 
Het volgende aantal zal zijn: 19 daarns 17, 2 85, 29 enz, 
vcorschotelen kunnen we 
+ 
t 


Dus als we onze tegenstander deze getallen 
deze getallen 


de z 


als 





niet verliezen, Omgekeerd 
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voorschoteld,..,.,..! 

Deze aantallen noemen we het ’streefdoel". Stel: we hebben nog 19 
stenen, wat is het streefdoel; het streefdoel is dan 17, dus we nemen 
er 2 weg en we kunnen niet meer verliezen, 

Is het mogelijk het streefdoel te bepalen zonder iedere keer in 
bovenstaande lijst te kijken: Ja en wel op 2 manieren, 

Door een rekenkundige berekening en door een serieeles berekening. 

De laatste gaat met de formule ((NK4) +1) waar bij ‚N zolang wordt 
opgehoogd (vanaf 8 tot ,,…) todat de uitkomst net onder of gelijk aan 
het aantal stenen zit. De eerste methode gaat sneller, f#n is simpel: 
t+{4k(de integere waarde van ((stenen-1)/4)) ‘ Nou-ja simpel?r,..... 
Deze gaan we hier toepassen, U mag zelt een PSD maken van de andere 
methode en dit uittesten, 





Voor de 'ZET VAN COMPUTER! kunnen we de volgende PSD opschrijven: 
ZET VAN COMpUTER 
















[ “gepAAL STREEFDOEL | 
aantal := stewev- steeervoel 
aaubal zo Ek 
a 











geul ar “pe compuben weent en aanbel 





STENEN! = STEVEN — aantal 








Het beslissings disaram in de PSD dient om er voor te zorgen dat, als 
het aantal stenen al een streefdoelwasarde heeft (wij winnen dus), de 
computer tach een geïdige zet doet,en doer er dan maar | te nemen 
maakt hij een grotere kans om het spel toch nos te winnen , en tevens 
ordt aan het einde van het spel automatisch de laatste steen 
wegaendmen N 





Als u zelf een ander versie van 'BEPAAL STREEFDOEL’ maakt, moet u er 
wel zaan denken dat in het hovenstaande PSD de variabele ‘AANTAL’ 
alleen de waarden @ t/m 3 mag aannemen, 


Hieronder staat het PSD van: 
Bepaal Steerveel 


eerst 2100 + wistewen -| /5)) | 
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Simpel niet waar 
Laat ik daarom ook een PSD voor de andere methode maar geven: 


Bepaal smmeerdoel 





Teller :=0 
STRoardts al tz \ NC *rellee) 








Tellen := Tellen +1 
Toroak (rellee td) H > sTevneu 








Het streefdoel moet kleiner of gelijk zijn aan het 
aantal stenen. Daarom loopt dit programma totdat de 
berekening uitwijst: hij is groter geworden, en op dat 
moment heeft het steefdoel nog de vorige waarde (dus 
kleiner of of gelijk), 

en voor de mensen die graag willen winnen: 


Bepoal smeerdoal 





pozl:= ganden getal Lo In 3) 





Totpab boel STeihen 





Stoeerdoal:= STeWen— voel 









Nu hebben we alle rrogramma delen in 
peain aantal stenen i 
na aflooe n 






: “ve Kunnen nd 
’ spelen: 
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Spel mek sreuen 


STENEN := CEV mab wput ef 
pavdam, gtbal (14% 30) 
ar votbe woandfe BS) 








‘spel’ 


voer tw op mw, = (za. se wee) 








Tervat opnmiauw — NEET" 





Nu kunnen we de PSD's vertalen naar BASIC, 


PS, erobeer ‘BEPAAL STREEFDOEL! eens te schrijven als een functie, 

De functie luidt dan i,m.v. ‘PROC BEPAAL-STREEFDOEL' bv, 'FUNCTEON 
STREEFDOEL (STENEN), waarbij stenen wordt vervangen door de variabele 
die u gebruikt om het aantal stenen aan te geven, 

Tevens dient u dan in 'ZET VAN COMPUTER’ de aanroep BEPAAL 
STREEFDOEL' te laten vervallen.(P5, Laat Functie Waam wiet ME 
aantsep dx Azs-teppucero(s) Sera Beqranon Kus Flap cunt EMU 9Ì 
Cok nu zal ik weer in de volgende aflevering mijn versie geven. Dok 
hier weert 

azen GOTO's, dus geen regelnummers gebruiken (moet mogelijk zijn), 


Tip: als bij het gebruik van de XIF THEN ELSE struktuur het een en 
ander zo lastig uitkomt, dat men denkt GOTO's nodig te hebben, BV. de 
WEE-tak in het PSD beslaat meer dan f programmaregel (zie bv, 'ZET VAN 
SPELER’), lanze 'ELSE' ‚dit is de NEE-tak wan XIF THEN ELSE, mag maar 
op ee regel staan (P-CHARM)),is het mischien mogelijk, door de 
gein teerde conditie te gebruiken, dit probleem op te lossen, (NI, 
alles wat tussen de XIF en de ELSE staat, behoort bij de THEN-tak 
‘conditie is TRUE), dus de WAAR-tak (THEN) mag over meerder programma 
regals staan, }, 

Wat wordt met ‘geïinverteerde conditie! bedoeld: 

Bv, 






XIF Az@ THEN PRINT "A=0" 
ELSE PRINT ’A is ongelijk aan @° 


is het zelfde als de geïnverteerde conditie: 


XIF AC>@ THEN PRINT "A is anaelijk aan 4” 
ELSE PRINT "Az8" 


Hieronder voladt een lijst met alle condities samen met de 
ginverteerde conditie 





X z Y geïnverteerde conditie (NDT) = XY 
ty 1 1e 1e Ye Oy 
Xh Y al ne n Xe Y 
ze Ov ‚ DE en Ysa Y 
Xe Y ' 1 En, 
U Le Y 3 : XY 
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conditie: betekend: 


'n’ is gelijk aan 

"<> is ongelijk aan 

€ is kleiner dan 

> is groter dan 

'4n' is kleines dan of gelijk aan 
je is groter dan of gelijk aan 


Dit voorgaande is in de Wiskunde bekend onder de verzamel ingen-leer, 


P8, het kan ook handig zijn om acher de THEN alleen REM te zetten {als 
er bv, achter de THEN direct weer een XIF THEN volgd) en dan op de 
volgende regel met het statement te beginnen wat anders achter de THEN 
zou komen te staan (door tevens in te springen komt de struktuur 
duidelijkeer uit), 


Martie Krukkeland 
Twello 
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“Ave Maria” is de begeleidingspertij (oorspronkelijk voor 
harp geschreven!) bij de door Bounod gecomponeerde melodie voor 
het "Wees gegroet” in het Latijn. Je zou het dus min of meer 
kunnen beschouwen als “music minus one”, want de melodie moet 
je er zelf hij zingen, spelen, trommelen of wat dan cok. 

Voor de omtovering van de Atom in een harp C...) is de Josbox 
alias AXR1 vereist. 


Het programma “Backup” is een verbeterde versie van een der 
vele binnen onze club circulerende programma's met behulp 
waarven de Files op een diskette op cassstte kunnen worden 
apgeslagen. Deze (vrij eenvoudige) versie kopieert de hele disk 
naar cassette. Alle programma’s worden vanaf #2300 in de Atom 
geladen en vervolgens met een snelle 1200 Baud-routine geSAVEd, 
De aorspronkelijke adressen van de files hlijven echter 
behouden! 

Het programma geeft van tevoren de geschatte opnameduur aan 
Lnooit langer dan 30 minuten), en controleert of alle files wel 
in het gsheugen van de Atom passen. Bovendien wordt eerst sen 
index van de Files op cassette gezet, waarna het programma de 
Files in dezelfde volgorde copieert als waarin ze op de schijf 
staan. 

Tenslotte: voor het programma is P-Charme benodigd. Het zal 
zichzelf naar #8200 copieren, om zoveel mogelijk ruimte voor de 
files vrij te laten. Nog een waarschuwing: tijdens de 
backup-procedure mag de schijf niet uit de drive gehaald of 
verwisseld worden, anders gebeuren er rare dingen... 


Ket programma ”Acorn” tekent razendsnel de gelijknamige 
boomvrucht op uú beeldscherm, Hiertoe heeft U, naast P-Charme 
en de mini-assembler, de 24/40 VDU-routine van Paul Kuyper 
nodig. De routine werd door Eric Willems en ondergetekende 
ontworpen als beginplaatje in een bootstrap-programma. Maar U 
mag er natuurlijk mee doen wat U wilt. Voor de cest kan ik 


alleen maar zeggen: wait Cnou ja...) and see! 


Voor vragen, op- of aanmerkingen kunt U, zoals altijd, terecht 
bij: Joop Engels, Prof „Bromstraat 102-11, E525 BH Nijmegen. 


PAG. 
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10 
20 
30 
40 
50 
50 
70 
80 
30 
100 
110 
120 
130 
240 
150 
150 
170 
180 


130 F. 


200 
210 
220 


230 F. 


240 
250 
260 
270 
280 
230 
300 
310 


320 F. 


330 
340 
350 
360 
370 
380 
330 


REN AVE MARIA 
FOR I=5 TO 6;G0S.a 
F‚X=5TO6;PL.CH.,D4.,A'H.,D'U, ‚F4, ,A? *, 
F.X=STO6;PL.B4. ‚DA, 64. ,D' 4. Fru. BUD 
GOS.a;NEXT 1 
F.X=STDB;PL.C4. EHA’ ,E'H. Ard, ru 
F‚X=5TO6; PL .C4. ‚DA. ,FN4. A HD". Fed 
F.X=SIO6; PL .B4. ‚0D, ,64.D'4. 04.04. 
F‚X=5TO6;PL.B4. ‚Ct. ES, ,Gt.,C'4, ESD 
F.X=STOB; PL .At.;C4.JE4. Gt. /C u Ey; os 
F‚X=STO6;PL.D4.,A'4.,D° 
F.X=5IO6; PL .G4. | 
F‚X=STO6;PL.G4., 
F.X=5TO6;PL.F4., 
: 
‚ 






F‚X=STOG; PL.F4, 
F.X=STO6;PL.E4, 
F.X=STOG;PL.E'4,,F’4 
F‚X=STOB;PL.D'4, :F 
X=5TO6; PL.GH, ‚D 
GOS .a 
F.X=STO6;PL.CH,,G4.,A' #4, 
F‚X=5TO6;PL.F4,,F' t. nij, 


‚CU, ,E'H.‚N. 
ze, „EH iN, 
CPE DEN. 


X=STOE; PL .D#4.,C? ú: 
à De: 4. Ante. „DEN. 
mj, HK 


‚Art.,Cr4, 
F‚X=STOG;PL.GH, ‚D’ #.,G'u,,A” a, 
F.X=5TOG; PL. Bet. ‚Ft, ‚B "4 CPH, 
F.X=5TO6; PL, 68, ,F 
F .X=5TO6; PL 64. ‚E’ 
F‚X=STO6;PL.G4.,0' 
F‚X=STO6;PL.G4.,D" 
F‚X=STOB;PL.GH.,0' 
‚E 
‚D' 
‚0 
ES 


D"ú, iN. 

4, beu, iN. 

8, PN. 

8, BN. 

4, 4, iN. 

# „Frit. iN. 
F.X=STO6;PL.GH, 4. 54, ;N. 
X=STOB;PL.GH. H, Kd 
F‚X=STO6; PL.G4, kid 
F‚X=STOB; PL.C4. y 
PL.C4,,C’4.,F'4, APH. Cr, ,F”4, 

PL. cru’, ‚Art, ‚cra, Da re ú Art. ,F’U,‚D'4, 
PL.B4, ‚B 4, ‚6 ĳ, ‚B s „bee. rEng. ‚by, ‚By 
PL, Dey’ EM ‚B’'4,,B* ú ‚D'4.,F” GE 4D u, 
PL.E'1,,E'1.,E' 1.;END 


IN. 
iN. 


4, 
$. iN. 


EF: 
m 


4OOaF . X=STO;PL.C4. „EU. BH. C'U.E'U. GE C'E. LE HLN GR. 


10 
2o 
30 
40 
50 
50 
70 
80 
30 
100 
110 


PROGRAM BACKUP 
REM VERSIE 2.4 
REM HELE DISK QP CASSETTE 


\#AOB-#FESHFES2, P.$6$12 
IF ?18<>#82 THEN 1COPY?1B*256, TOP, #B200; P18=#82; LINKKAFAF 
DIN CC200),LL20 


FOR 1=0 TO 20; LLI=#FFFN, 
GOSUB p; ASSEMBLEER( CC) 
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120 TTT 
130 DO 

140 TMENU 

150 DISKCOPY 

150 UNTIL FALSE 

170 

180 END 

130 

2OOpREN DEFINIEER PROCEDURES 

210 

220 PROC TMENU 

220 X=#B0; D=#100; T=#140; 7X=TXDO; XP1=T/D 
240 S=5; A=#2300; M=A 

250 DD M=M+D; ?M= PM: HEF ;N=PN; PM=PM: HEF ; UNTIL N=PM OR M=#8000 
250 @=0;P.S12;CLEARO 

27o Pp.” BACKUP-PROGRAMMA” * 

220 P‚” DISK NAAR CASSETIE"'' 

250 P.S9”KOPIEERT HELE DISK NAAR TAPE,” 
300 P.SS9”ALLE FILES WORDEN VANAF #”,8A,' 
210 P.S9”GELADEN EN MET 1200 BAUD”* 

320 P,S9”GESAVED. PLAATS DISKETTE IN”' 
330 P.S9"DRIVE O EN DRUK OP EEN TOEIS.”'" 
340 MOVEO, HO; DRAWS2 , HO; DRAWG2, 22; DRAWO, 2; DRAWO, #0 
350 INKEY XK 

350 LINK #EOOO; *NOMDN 

370 COS1;LINK C;*DIR 

380 E=8;U=0;U=T#2105 

380 F=U+#2000; G=U+#2100 

400 FOR N=0 TO CU-8) STEP 8 

H10 Wel CHELOCHNIEHFFFF ; Velt 

420 IF W>M-A THEN P.”GEHEUGEN TE KLEIN! ”’,$7;END 
#30 NEXT N 

440 P‚,” PROGRAMMADUUR: ” 

450 P=%(U/HOS6+U/B*CS+2I/50+1D 

450 @=2;P.P,” MINUTEN" 

470 P‚” TOTALE GEHEUGEN: "0/1024” KB” 
480 P,” AANTAL PROGRAMMA'S: "0/8! 

490 P.” START RECORDER”'”"DRUK OP EEN TOEIS”' 
500 INKEY K 

510 P.S12” INDEX: ”’; T#E1=0 
520 FOR N=F TO #2008 STEP -8 

530 P,” „ 

540 FOR 1=0 TQ 6;P.SCNPIJGN. 

550 P.” ” 

5560 NEXT N 

570 SI="INDEX";B=#B000; E=#8200; L=B; FSAVE 
580 PEND 

520 

BOOPROC DISKCOPY 

G10P,512515; PHEL=O 

620D0 ADRES 

B3OP, * ” 

BHOFOR N=O TO 6;P.SCFPND;N. 

5508=5;P.," "&B,&E,&L 

BEOFLAAD 

570PAUSE 5*50 

5BOP,”c”’ 

BSOFSAVE 

70or=F-8; G=G-B 

71CUNTIL F<#2008 

ZOOP," "KLAAR" * 
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730P."STQP RECORDER” 
74000 BEEP20,30;KEY K;UNTIL K 
750PEND 
7560 
770PRDC FLAAG 
7601=7;SD="SET";DPI=CFPIDANIF 
7SODPS=tD; LINK HFFF7 
BOODO IeI-1 
B1OUNTIL FPI<>CH" ” OR 1<O 
B2OIF I<O THEN P."FDUTIEVE FILENAAM! ”* ‚57; END 
BAOFOR N=O TO 1; TPNeFPN;N, 
BYOTPN=#D; X! Zea; XPU=4FF 
BSOLINK #FFEO 
BEOPEND 
870 
BBOPROC FSAVE 
BSOX! 2=B; Xt el ; X! 5e 
SOOX}B=E-B+A;LINK #FFDD 
S1OPEND 
geo 
S20PROC ADRES 
S408=! GEHFFFF 
950E=! CG+4)EAFFFF+B 
S6OL=! CG+2I80FFFF 
S7OPEND 
380 
SS0PROC ASSENBLEERCZ) 
100OLL1=#CA; LL2=#20E ; LL 3=#BO0E 
1O10LL4=#PBSF ; LLS=-#FAGG 
1020LLE=#FB83; LL79FFD1 
1030P,$21;FOR I=1 TO 2;P=2;C 
1040: LLOPHP; SEI 
1OSOLDAELLS<256; STALL2 
1O6OLDA@&LL9/256; STALL2+1 
1070PLP; RIS 
1080: LLBSTXLL3; LOXEN IC; JHPLLG 
1030: LLSPKP; SEI ; JSRLL4; PMP 
t1OOLDXENO7 ; JSRLLB 
1110PLP;BNELL1O; JMPLLS 
1120: LL10LDXER0H 
1130; LL11LDACE, X; STANDE, X; DEX; BNELL11 ; STX#DO; STX4D1 
1140LDANDS ; BNELL 12; DEC#D6G 
1150:LL120ECRDS; CLC 
1160: LL13ROR#De; SEC; LOXENFF ; LDAADS ; SBCHD3; STANCF ; LOAHDE ; SBCHDS 
1170PHP ; RORND2; PLP ; BCCLL14 
1180CLC; BEOLL14; STX#CF ; SEC 
1130: LL14ROR#DE; JSRLL1S; INCHDO; INCHDH; INCHCC 
120OROL#DE; BCSLL13; PLP; RIS 
1210: LL1SLDX&#07 ; JSRLLB; STXDC ; LDYERO4 
1220: LL1SLDA@#2A; JSRLL7 ; DEY ; BNELL16 
1230: LL17LDACHCI), Y; ISRLL7; INY; CMPR#OD; BNELL17 ; LDYE#08 
1240: LL28LDALL1, Y; JSRLL7 ; DEY ; BNELL18; LDX@#10 
12SOJSRLLE; BIT#D2 ; BUCLL2O; DEY 
1260: LL1SINY;LDACHD3), Y; JSRLL7 ; CPY#CF ; BNELL1S 
1270: LL2OLDA#GC ; JSRLL7 ; LOXENOH; STXLLI; RTS 
1280I;NEXT I;P.S6 
1230PEND 
1 30ORETURN 
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10 PROGRAM ACORN 510 DATA #52585656 

20 520 DATA #HASCHESA 

30 GOSUB p;REM definieer procedures 630 DATA #4250465E 

40 S=#7000;REM haginadres UOU2440 540 DATA #HISEEIEGE 

50 T=#5000;REN beginadres tabel 550 DATA #2E6A8850 

60 650 DATA #256EB8S6 

70 MAAK-TABELCT, AJ 570 DATA #1A74885C 

80 PRINT S21;ASSEMBLEER(S,T, AD 580 DATA #0E7ABEB2 

30 ASSENBLEER(S,T,A);PRINTI 506 630 DATA #O67EBB55 

100 700 DATA #15672185C 

110 LINK EIKEL 710 DATA #14801478 

120 PRINT $19 720 DATA #14BC1485 

130 END 730 DATA #10981232 

140 740 DATA #FF 

15OpREN PROCEDURES 750 DATA 0 

160 750 

170 PROC MAAK-TABELCT:D),P 770 PEND 

189 780 

190 P=T 790 PROC ASSEMBLEERCS,T,A) 
eoo BO B00C 

210 READ OD 810 .TA #9800 

220 [P=O,P=P+4 B20 .BA A 

230 UNIIL D=O B30 

240 840: TABEL - T 

eso Da 850: TEKENBYTE = #AA 
eso P=P-1 860: LOW’ BEGIN - #70 
270 UNTIL PP=#FF 870: HIGH’ BEGIN = #71 
280 O=P+1 B80: LOW’ CL - #72 
230 830: YSAU = #73 
300 DATA #0A7CO000 300: XSAU =_ #78 
310 DATA #1E721675 310: CURSOR 'H = #DF 
320 DATA #CASC2GEE 320: BUFFER = #140 
430 DATA #3E582EGA 830: CURSOR’ INVERT = S+#431 
340 DATA #3A543566 SHO: VDU' START = S+#6FE 
350 DATA #3EGC3EGE2 350: REGEL = #9500 
350 DATA #4ESE4260 S60:PR' TEXT = #F7D1 
370 DATA #4ASCHSSE 370: WAIT = #FEGG 
380 DATA #4ASCHASC 380: SCAN - #FE71 
390 DATA #HESAHESA A80 

400 DATA #52585258 1000: EIKEL 

410 DATA #565652S8 1010 JSR VOU'START 

H2O DATA #SESGSES6 1020 JSR TEXT 

430 DATA #5AS4SAS4 1030 JSR TEKEN 

40 DATA #SES2SASH 1040 JSR COPIEER 

450 DATA #SESR2SESe2 1050 JMP BUFFER 

350 DATA #6250SES2 1050 

470 DATA #625052S0 1070: TEXT 

8BO DATA #664E5250 1080 JSR PR'TEXT 

430 DATA #EEHESSHE 1090 DB. #O60F 

500 DATA #EBHEGE4E 1100 BY #14 

S10 DATA #6G4ESSHE 1110 NOP 

520 DATA #SGHEGSHE 1120 JSR CURSOR' INVERT 

530 DATA #664EGS4E 1130 LDA GREGEL/256 

540 DATA #5A4COOOO 1140 STA CURSOR'H 

550 DATA #5A4CBA4C 1150 JSR PR'TEXT 

550 DATA #6E4EGSSE 1150 AS "Acorn Computers 
570 DATA #6250654E 1170 NOP Press a key to start * 
580 DATA #62505250 1180 JMP CURSOR’ INVERT 

530 DATA #S5SESC5ESe 1150 


500 DATA #S55B55BSAS54 1200: TEKEN 
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1210 LDA @#80 

1220 STA HIGK’BEGIN 
1230 ASL A 

1840 STA LOW'BEGIN 
1250 STA LOW'CL 

1250 LDX @#01 

1270 

1280: BEGIN 

1230 CLC 

1300 LDA TABEL, X 
1310 PKP 

1320 INX 

1330 INX 

1340 LDA LOW’CL 

1350 PLP 

1350 BMI VERHOOG'NIET 
1270 ADC @#40 

1380 STa LOW'CL 

1390 

1400: VERHOOG "NIET 
1410 STA LOW'BEGIN 
1420 BCC ZELFDE 'REGEL 
1430 INC KIGH'BEGIN 
1440 

1450: ZELFDE ’ REGEL 
1460 LDA TABEL-1,X 
1470 BEG BEGIN 

1480 CMP GHFF 

1330 BNE NOG’NIET KLAAR 
1500 RIS 

1510 

1520: NOG’NIET’ KLAAR 
1530 JSR DEEL 

1540 JSR VODRAAN 

1550 STA CLOW'BEGIND,Y 
1550 TYA 

1570 ELC 

1580 ADC LOW’BEGIN 
1530 STA LOW’BEGIN 
1500 STY YSAu 

1610 LDA TABEL, X 

1620 AND &4#7F 

1530 ADC TABEL-1,X 
1580 JSR DEEL 

1550 SEC 

1550 SBC YSAU 

1570 TAY 

1580 JSR NADERHAND 
1590 STA CLOW'BEGIND, Y 
1700 LDA @TEKENBYTE 


1710 
1720: VUL’ OP 

1730 DEY 2410 RTS 
1740 BEQ BEGIN 24201 

1750 STA CLOW'BEGIND, Y 2430 PEND 
1750 BPL VUL 'DP 2440 

1770 2450 RETURN 
1780: DEEL 

1730 SIX XSAU 

1800 TAY 


1810 AND @#07 
1820 TAX 

1830 TYA 

1840 LSR A 

1850 LSR A 

1850 LSR A 

1870 TAY 

1880 RTS 

1830 

1300: VOORAAN 

1310 LDA G#FF 
1820 

1330: LOOP1 

1840 DEX 

1950 BMI KLAAR 
1950 LSR A 

1970 BPL LOOP1 
19850 

1980: NADERHAND 
2000 LDA @#00 
2010 

2oe0:LooPe 

2030 DEX 

2040 BMI KLAAR 
2050 SEC 

2050 ROR A 

2070 BCC LOOP? 
2080 

2080: KLAAR 

2100 AND @TEKENBYTE 
2110 LDX XSau 
2120 RIS 

2130 

2140: COPIEER 

2150 LDX BTERUG-ROTEER 
2160: VERPLAATS 
2170 LDA ROTEER,X 
2180 STA BUFFER, X 
€190 DEX 

2200 BPL VERPLAATS 
2210 RIS 

22eo 

2230: ROTEER 

2240 LDA REGEL 
2250 ASL a 

22560 LDX @#iF 
2270: LUS 

2280 ROL REGEL, X 
2290 DEX 

2300 BPL LUS 
2310 LDA BUFFER+1 
23e CLC 

23230 ADC e@e#20 
2340 STA BUFFER+1 
2350 STA BUFFER+CLUS-ROTEER) +1 
2360 BCC ROTEER 
2470 JSR WAIT 
2280 JSR SCAN 
2390 BCS ROTEER 
2400: TERUG 
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10 

20 

30 

40 

50 

50 

70 

BO 

30 
100 
110 
120 
130 
140 
150 
160 
170 
180 
150 
200 
210 
220 
230 
240 
eso 
250 
270 
280 
230 
300 
310 
320 
330 
340 
350 
460 
370 
380 
380 
200 
410 
420 
430 
440 
450 
450 
470 
#80 
430 
500 
510 
520 
530 
540 
550 
550 
570 
580 
530 


REM 24/40-UDU 0.3 

Q%=&1700:REM karakter-tabel 

0x=0%+8300: REM begin code 

DIM C4C9),RAC12) 

Sx=&4O: REN scherm 

C=&3F8: REM werkruimte 

FaC+1:H=C+e: U=C+3: DCH 

E=C+5;BeC+56: G=C+7 

p=&DE: q=8DF : r=&EO: n=&EC 

xsav=BE4: ysav=8ES: pm=&E6 

lock=&E7: ignore=&FB 

pa=&7000: pb=pa+1: po=pa+2 

pd=pa+3: via=&7800 

urchv=&20E ; osurch=&FFEE 

FOR 1%=0 IO 3 STEP 3 

P=Q%: Roel DIV 256 

LOPT T%:.table:1 

FDR X%=0 TO 9: PAPXA=CHCXHI : NEXT 

Px=Px+10:COPT Tx 

.CXC1J:DEC C:BPL cO:LDA #3:STA C:.cO:BED c1:DEC p 

‚ei:BPL C*(0):LDR H:SEC:SBC #1:STA p:DEC q:LDA q:CMP #5%:BCS5 CCO) 
„C2CB2I: INC C:LDA C:CMP #1:BEQ C2:INC p:.c@:CMP #4:BCC CxCO):LDA #0: STA 
LDA p:CMP H:BCC C%COJ:JSR C4C3):LDA #0:STA p 

‚ECO: RTS 

„CHI: DEC g: LDA q:CMP #5%:BCS CI: INC q:.C3: RTS 

„C%C5):LDA V:CLC:ADC #S5%-1:STA q:LDY #0:STY p 

‚ct:JSR C11:DEC q:LDA q:EMP #5%:BCS c4 

„C*CS):LDA #EFO:STA pa:LDA #S%:STA q:LDA pm:BMI C%C5):LDA U:STA pm 
.C%CE):LDA #0:STA C:STA p:RTS 

‚C@C7D:LDX U: BPL CS 

‚C%8):LOX #&80 

‚c5:STX pm: RIS 

.E%CII:LDY pm:BMI C8:DEY:BNE C7 

‚cb: JSR scan:BCS c6:LDY U 

‚e7:STY pm:.cB: INC g:LD& U:DRA #5%:TAX:CPX q: BEG c9:BEC Cx(9): RIS 
.c8:LDA p:PHA:LDY #5%+1:STY q:DEY:STY h+1:LDY #0:STY p:STY h 
.c10:LDA (p>,Y:STA Ch),Y:INY:BNE c10: INC q: INC h+1:EPX q:BNE c10 
DEC q:JSR c11:PLA:STA p:RTS 

‚c11:BIT F:BMI c12:DEY 

‚c12:TYA:LDY #0 

.c13:STA Cpì,Y:INY:BNE c13:RTS 

mevpos:LDA p:LDX #&FF: SEC 

‚div: INX:SBC #&03:BCS div 

TXA:ASL A:ASL A:ADC C:TAX 

LDA g:AND #&1F:TAY:RIS 

write: JSR prdrive 

‚uO:PHP:PHA:STX xsav:STY ĳysav 

BIT pb:BMI wi:BUS w1:JSR wait 

.wl:JSR w6: .w2: PLA 

‚wI:LDX xsav:LDY ysav:PLP:RIS 

wt: CLC: „WS: PHP:ASL r:PLP:ROR r: RTS 

‚wS:EMP #21:BEQ wS:CMP #6:BEQ wit 

LDY r:BMI cur:PHA:JSR cu: PLA 

CMP #820:BCC cc:CMP #87F:BEQ del: JSR print:JSR CXC2) 

«cu:LDY #&EO:LDA C:BEQ cu0:CMP #1:BEQ cui:ChP #2:BEQO cue 

.CUI:LDA Cp),Y:EOR #&IF:STA Cpd,Y:.cur: RIS 

„cu2:LDA Cp),Y:EOR #&0F:STA Cp),Y:INY:LDA (p),Y:EOR #&CO:STA (p),Y:RIS 
cul:LDA (p>,Y:EOR #803:STA (pò,Y:INY:LDA Cp),Y:EOR #&FO:STA (p),Y:RIS 
…cu0:LDA (pì,Y:EOR #&FC:STA Cp),Y:RTS 
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600 
610 
620 
630 
540 
650 
660 
570 
680 
530 
700 
710 
720 
730 
740 
750 
760 
770 
780 
730 
BOO 
B10 
seo 
820 
840 
aso 
B&0 
B70 
880 
830 
S00 
S10 
s20 
930 
940 


‚del: JSR C4CI):LDA #8&20:JSR print: JHP cu 

«Ge: CMP #7:BNE cc@:JSR bell: cci: JMP cu 

Cc2:LDX #9:JSR sc1:BNE col 

LDA table,X:STA h:LDA #RX:STA he1:JSR exec: IMP cu 

„Sc0: DEX 

MP tab,‚X:BCC scO: RTS 

: | P4=&0AO30B00 : PX! t=A&OEODOCOB : PX! B*&AEOF : Px=Px+10 
| P%=8&06050100: PX! S= 100FOEO8: PX! B=821201C11: PX712=43B 
Px=P%+13:COPT TA 

wait: LOX #6 

-waitl:JSR fb:DEX:BNE waitl:RIS 

‚Êb:BIT pc:BPL Fb 

-fbl:BIT pc:BMI Fb1:RTS 

«bell:PHP:SEI:LDA #5: TAY 

‚b1:STA pd: .be:DEX:BNE be 

EOR #1:INY:BPL b1:PLP:RIS 

‚print:PHA&:AND PEIF:STA h:PLA:ROL A:LOX #O:BCC pO: DEX: pO: STX 5 
LSR A:LSR A:LSR A:LSR A:LSR A:LSR A:CLC:ADC PRX-4: STA 1 
LDY #O:LDA C:BEQ prO:CMP #1:BEG pri:CMP #2:BNE pr3 
‚pr2:LDR #&0F:STA B 

-pi:LDA CN,Y:LSR A:LSR A:LSR A:LSR A:JSR we: BEC pi 

INC p:LDA #4CO: STA B 

p2:LDA Ch),Y:ASL A:ASL A:ASL A:ASL A:JSR wr:BECT p@:DEC p:RIS 
-pr3:LDA #&3F:STA B 

p3:LDA Ch),Y:LSR A:LSR A:JSR wr: BCC p3: RTS 

.prO:LDA 8&FC:STA B 

p4:LDA Ch),Y:JSR wr: BCC ps: RIS 

…pr1i:LDA #803:STA B 

‚p5:LDA Ch),Y:LSR A:LSR A:LSR A:LSR A:LSR A:LSR A 

JSR wr:BEC p5:INC p:LDA #&FO:STA B 

„p6:LDA Ch),‚Y:ASL A:ASL A:JSR wr:BCC p6:DEC p:RIS 
-wC:JSR wrO:LDA B:EOR HAFF:ANG Cp),Y:ORR E:STA (p),Y 
CLC: TYA: ADC #R20: TAY: RTS 

wrO:BIT F:BPL wri:EOR G&FF 

wr 1:EOR G:AND B:STA E:RTS 

‚prdrive:PHA:CMHP #2: BEG pr_ensbie:CHP 93:BEQ pr_disable 
CMP ignors:BEO quit: PLA: send: PMA 

LDA via+&C:AND #8E:BEG quit: PLA 

«busy:BIT via+1:BMI busy:STA vie+1 

PHA:LDA viat+&C:AND #&FO:0RA #AC:STA vin+&C:ORA #2:BNE store 
-pr_enable:JSR pr_status:BCC quit 

LDA #27F:STA vin+3:LDA vin+8C:AND #8&FO: DRA #EE 
‚store:STA via+8C: „quit:PLA:RTS 

‚pr_disable:LDA via+8C:AND #&FO:BCS store 

.pr_status: SEC 

test:BIT via+1:BPL on:BIT pb:BMI test:CLC: ‚on: RIS 
«sendBbit:JSR set: JSR send 

‚resst:PHA:LDA #6:STA pd: PLA: RTS 

-set:PHA:ASL A:LDA #3:R0L A:STA pd:PLA:RIS 

read: PHP:CLD:STX xsav:STY ysav:JSR scan: BEC re 

‚rO:LDX #25:SIX D 

JSR Flash:BCC r4 

-r@:DEC D:BEO r3:JSR Fb 

JSR scan: BCS rO:BCC re 

r3:INC D:BIT pc:BVC r4:JSR wait 

‚rt: JSR Fb: TYA:LDX #12+10 

JSR sci:JSR convert: JMP w3 

convert:LDA edr-10,X:STA h 

LDA #P% DIV 256:STA h+1:TYA 

exec: JMP Ch) 
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„200 
1210 
1220 
1230 
1240 
1250 
1250 
1270 
1280 
1230 
1300 
1210 
1220 
1330 
10 
1350 
1260 
1479 
1380 
1390 
1400 
1410 


adr:J:FOR 1%=0 IO 12:adrPIK=RACI%D: NEXT: P4=P4+13:EOPI T% 
„.RXC2):LDA Lock:EOR #&50:STA lock: JAP bell 
„RX(I):AND #805: RUL pb:ROL A:RTS 

.RXCEI: LDA H&SF 

‚RXC12):EOR #820: RIS 

‚R&C11D:EOR lock 

.„RLCLO):BIT pb:BMI R&LOI:EOR HE6O: INP RACO) 
„R&C1):ADCT #82: BTT RAC1O) 

‚RZCIJ:EOR #&10 

‚R2CB):BIT pb:BMI R<C0):EOR #&10 

„RKCOI: CLC: ADE #20 

‚.RXC4):BIT ph:BVS ret:AND #&1F: ret: RTS 
‚RXC7):BIT pb:BNI RXCO):LDA #&5F:RIS 
RACS): LDA #0:STA G:JSR KI: TAY:BNE ke 


LDR GASCTT" OR LAG hl 
„Kki:EOR MAO: ‚KZ: RTS 

‚«I:LDA @RK-I:LOY HO:STA h+l:STY h 

LOA C:BEQ cpD:ONP #&1:BEG cpl:CNP #2:BEU cp? 

cp3:LDA #&3F:STA B 

K4:LDA Ch),Y:LSR A:LSR A:JSR coap: BNE KG:BCC k'é 

‚KS:LDA h+1:SBC #R<x-4:ASL A:ASL A:ASL A:ASL A:ASL A:ORA h:RIS 
‚KG: JSR inc:BCC k4:RTS 

-‚cp0:LDA G&FC:STA B 

K7:LBA Ch),V: ISR comp:BNE kH:BCC K7:BCS kS5 

KB: JSR inc:BCCT k7:RTS 

ct, hin B 

‚KS: LDA ),Y:LSR A:LSR A:LSR A:LSR A:LSR A:LSR A 


JSR Comp, BRE k11:BCC k3 

INC p:LDY #0:LDA #&FO:STA B 

‚k1O:LDA Ch},Y:ASL A:ASL A:JSR comp:BNE k12:BCC k1O 
JSR KS:DEC p:RIS 

‚k11: INC p 

‚k12:JSR inc:0EC p:BCC cpl:RIS 

-CpE:LDA #&0F:STA B 

‚k13:LDA Ch),Y:LSR A:LSR A:LSR A:LSR A 
JSR comp:BNE k1S:BCC K13 

INC p:LDY #0:LDA #£CO:STA B 

‚k14:LDA Ch),Y:ASL A:ASL A:ASL A:ASL A 
JSR comp:BNE k16:BCC kit 

JSR KS:DEC p:RTS 

‚K15: INC p 

‚k16:JSR inc:DEC p:BCC cp2: RIS 

comp: JSR wrO:LDA (p),Y:CPY #&EO:BCC compi:EOR B 
comp1:AND B:EOR E:STA E 

IYA:CLC:9DC #8&20:TAY:LDA E:RIS 

.inc:LOY #0: INC h:LDA h:CMP #&20:BCC incl 
SIY h:INC h+i:LDA h+1:CMP #RX:BEC inc1:TYA 
-inci:RIS 

‚Ftesh:LDA #0 

‚loopi:PHA: LDA #0 

‚loop@: PHA: JSR scan:PLA:BCCT key 

SBC #1:BNE loope 

JSR inv:PLA:ADC #1:SEC:BCS loopl 
‚key:PLA:LSR A:BCC rts 

‚inv: TYA: PHA: JSR cu: PLA: TAY:CLC 

„rts: RIS 

‚scan:LDY #&3B:CLC:LODA #&20 

‚ncol:LDX #10 

.nraw:BIT pb:BEQ cieer 
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1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1830 
1800 
1910 
1320 
1930 


INC pa:DEY:DEX:BNE nrow:LSR A 
‚clear: PHP: PHA 

LDA pa:AND #&FO:STA pa 
PLA:PLP:BNE nool: RTS 
iníit:LDA #&80:STA F 
PHP:SEI:LDY #403 

install:LDA vectab,Y:STA wrchv,Y 
DEY:BPL instail:PLP 

LDA #24:STA U:LDA #30:STA H 
LDA #10:STA ignore 

LDA #12: JMP oswrch 

‚vectab 
J:!P4=write:P%!2ermad: PX=Px+4 
NEXT:REM CALL init 


REM 1200 BAUD ROUTINES 

REM VOOR DE ACORN ATOM 

REM MET BBC-KAARTJE. 

CLS: @%=0 

INPUT"WAAR CODE OPSLAAN ”,G$:Q%x=EVALOS 
FOR 1%=0 TO 3 SIEP 2 

Px=-0%:COPT 1%:SEI 

LDA #LEES MOD 256:STA &216 

LDA #LEES DIV 255:STA &217 

LOA #SCHRIJF MOD 256:STA &218 

LDA #SCHRIJF DIV 256:STA &219 

CLI: RTS 

\BGET 1200 BAUD 

‚LEES:STX &EC:STY &C3:PHP:SEI 
-Li:LDA #&7E:STA 8&CO 

‚L&:JSR &FC32e:BCC L1 

INC &CO:BPL L2 

„La: CLG: „Lt: PHP 

JSR &FCSE:JSR &FCS4:ECPX WA12:BCS LS 
PLP:BCS L6:SEC:BES L4 
‚LS:PLP:.L6:ROR &CO:BEC L3 

LDA &CO:STA &4O1F: JMP &FBF1 

\BPUT 1200 BAUD 

-SCHRIJF:STX 8EC:STY &C3: PHP: SEI 
PHA: JSR &FBF6:STA &CO:STA 8HO1F 

JSR &FCAD:LDY #ROA:CLC 

-‚S1:BCC 52 

LDX #&07:STX &7002:LDX #801:BNE 53 
Se:LDA #804:STA &7002:JSR &FCAD: INC 87002 
‚SA: JSR &FCAF:SEC:ROR &CO:DEY:BNE S1 
TSX:LDA &103,X:AND #80F 

EOR &104,X:CMP #&F1:BEQ S4 

JMP &FCBB 

‚S4;LDX #804: STX 87002 

PLA: PLP: PLA: PLA: RIS 

J:NEXT 1% 

PRINT’ "CODE STAAT UAN 8”;"UX; "B"; “P4-3 
PRINI'”STARI OE ROUTINE MET: ” 
PRINT’ ” CALL &”;“Q%;CHRSCIID ; 

END 
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TELETVPE 
Pon en Raymond van Melzen. 


Een tijdje geleden besloten mijn broer Raymond en ik de 
Lowest Cost Atom modem (zie Acorn zieums 4.4 pag. 82 te 
bouwen. 

Dit modem werkt prima van Atam op Atom met behutp van de 
cassettepoort. Het enige dat ontbrak was de software dus 
hebben wij ons daarop gestort. Na een tijdje programmeren 
was ons eerste programmaatje klaar. Het is een 
teletypeprougramma (halt duplex) geworden. Zie listing 1. 


10 REM TELETYPE VL 7 
zo P,s12 

30 IN. "READ 17""WRITE 2"'Q 
40 IF G=t G,140 

50 P_&12 

60 p.$7°*"WRITE 5"? ; P$BOO2=HFF 
20 DIM WWO,P-1;P,$Z1GL 

BO:WWO ISR HFFEGISTA #80IRTS; 1 
90 P.56 

100 LINK WWO;A=?H805 BPUT R‚A 
110 IF A=zó4 6,140 

1350 6.100 

140 P‚,S12°"READ ;**” 

150 P#BOO2=0; I=BGET AjP.SI 

160 IF I=i3 P.S10, S13 

170 IF I=64 G.60 

180 6. 150 





Dit programmaatje werkte leuk, maar het had voor ons een 
nadeel. Als we bijvoorbeeld een software bespreking hielden, 
dan hadden ue twee mogelijkheden: 


1) Voorbeelden intypen en vervolgens naar de andere kant 
saven. 
2} Voorbeetden intypen, overschrijven op papier en later, 


na de telecommunicatie proberen 

Beide handelswijzen vonden we erg omslachtig en dus zochten 
we naar een softwarematige oplossing. Na een tijdje piekeren 
werd list twee geboren. 


Met dit programma wordt het mogelijk om van twee Atoms ais 
het ware den Eikeltje te maken en dat alles via de 
cassettepoort en de telefoonlijn. 

Het programma: 

Als tijdens het teletypen op <ESC>* gedrukt wordt,dan staan 
beide Atoms in direct mode en kan er dus een programma 
ingetikt en gerund worden door iemand anders dan de bezitter 
via de telefoonlijn. Vergeet daarbij niet naar een andere 
pagemode over te schakelen met bijvoorbeeld PHLS=#35, 
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want anders overschrijft u het Teletypeprogramma. Wilt u 
daarna weer Teletypen,ga dan terug naar ?#18=#29 en run 


teletype,kies <READ> en wacht op 
om te schakelen 


10 REM TELETYPE V.2 

20 DIM ZZ5;REM WRITE 

30 P=28A0{P, 221;L 

40 JSR BFEP4;ISTA #BOGIJSR HEFDI 
SO PHA; TYAs PHA; TXA; PHA 

60 LDX@eRJO 

70:Z22 LDY @#20;LDA #BOOZ;EOR @e4 
80 STANBOO2 

S0:223 DEY;BNE ZZ3;DEX;BNE 222 
100 PLA3TAX3 PLA; TAY3 PLA 

tt0 RTS; JP. 26 

120 DIM OOS;REM READ 

130 Pu#2800;P. 221; L 

140 ISRWFFD4 

150 PHA; TYA; PRAS TXAi PHA 
160 LDX @#30 

170:002 LDY @#20;LDA#BOO2;EOR a4 
t80 STAWBOO2 

190:003 DEYsBNE 003; DEX;BNE 002 
200 PLA$TAX;PLAs TAYs PLA 
210 RTS; 1;P. S6;REM KEYSCAN 
220 DIM KKS;Pa#28DO5 [ 
230:KKO ISR WFFE6;STA #80;RTS 
24035P. #6;U=t3BOO2 
250 P‚si2 


EXTENTIE VOOR PERSOON 1: 

240 P. °"$7"ONTVANGST 1" "ZENDEN 2 
270 IN. KsIFKe=2 G.390 

280 P.‚st2 

340 P. “ONTVANGST: ** "5 220 
370 P#ZOANOO; P#ZOB=N 28 

380 LI.KKO3IF ?#80=64 6.400 
3585 IF *N90=27 E. 

386 5,330 

390 P. 112 

300 P, °"&7"ZENDEN: """; 2U=NEFF 
410 PW20A=NA0 5 PW20B=#28 

420 LI.KKO;IF ?#80x645G. 360 
430 IF ?#80=227 E. 

440 6.420 


EXTENTIE voor persoon 2: 
260 P‚, ""SP"ONTVANGST 1** “ZENDEN 2 
270 IM. K;sIFK=2 G, 390 

zaan P. 13 


in lezen dient men <@> in 
het programma eens met bijvoorbeeld (ESC>, 


een reactie. Om het zenden 


te drukken. Test 
list, run, etc. 
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360 P‚57°" “ZENDEN: **’ ; ?U=$FE 
570 PRZOA=HAOG PH2OR=H2E 

380 LI.KKO3IF P#HR0=64; G. 400 
585 IF?#8O=27 E, 

38á& 5. 330 

390 P. #12 

400 P‚ “ONTVANGST: **’; 2U=0 
410 ?$20A=R00; PN2OB=H23 

420 LI. KKO;IF ?P#80=64 6,360 
430 IF ?#80=27 EE, 

440 6.320 








Hopelijk hebben we met deze simpele lieting enkele Atomisten 
gelukkig kunnen maken. ' = 


N.B. Dit programma is geschreven voor de Atom in zijn meest 


elementaire vorm. 


Dan en Raymond van Melzen 


CAAORDIMAAT —_ > rParaABaat. 


Onderstaand programma berekend uit de door u ingevaoerde 
coordinaten de parabool, waarna u van elk gevraaad punt x de 
Y waarde uitgerekend krijet. 


10 REM R, HOPMAN 

20 P‚st2 

30 FP."3 COORDINATE -> PAREL "* 
40 FINPUT*x1"%D,*YI“%G 

SO FINPUT"X2"%E, *"V2*XH 

60 FIMPUT"XS"E, "YET 






KDALD-AFAKE is KOEKD-AF 
PO KPERIKLN-LLRKMS KOSNKHLO- KNEL 
100 %A=XP/%Q 

110 %R=(NGHARLDALD) — (XH-KARKERKEN 
120 %S%D-KEsKB=AR/KS 

130 &T= (KGN AALDEND KBD j CET 

140 FP,"A= "%A',"B= “RR, "Pz 2007 
150 FINPUT"Xexx 

160 EP. “y= "MARLYN (LRBAANI HCT 
120 OG A50 
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ATOMELE 

daar B Kasteel. 

Zoals de titel al doet vermoeden is het setukt om een type 
6809 microprocessor op de ATQM draaiende te krijgen. Met 
bijbehorende software is het dan mogelijk op de ATOM onder 
het operating sysen FLEX te draaien. 

Flex is een operating system dat geschreven is vaar de 4800 
6809. Op de conputermarkt is erg veel software te krijgen 
voor flex systemen. Zo zijn er voor flex geschikte versies 
van FORTRAN af PASCAL. In de Elektuur Computing nr. 3 is 
tevens enige aandacht besteed aan de 6809. 

Het is mogelijk om onder bestelnummer S4l en 540 de voor de 
EC68 geschikte versie van de bootrom en van ASSIST 09 teen 
monitor programma) te verkrijgen. Deze kunnen dan voor de 
ATOM aangepast worden om zodoende flex te kunnen draaien. 
Voor het zover is zal echter de benodigde hardware 
geinstalleerd moeten worden. Om de zekerheid van de ombouw 
te verhogen heb ik hiervoor een print ontworpen. Deze zal 
t.z.t. te bestellen zijn via uw regiobestuur. 

Wanneer u de print eenmaal in huis hebt gaat u als volgt te 
werk: 

1. Knip alle pennen van een 4O-polige wire-urap voet 
op gelijke lengte af. 

2. Soldeer 20 van deze pennen op de connectorrij gemerkt 
met met 6502. De pennen moeten nu ongeveer even var 
doorsteken aan de niet soldeer kant. 

3. monteer een 40-polige IC-voet op de soldeerzijde van 
de met 6809 gemerkte rij. 

4. Sotdeer de overige 20 wire-wrap pennen op de nog vrije 
rij. 

5. sotdeer een 40-palige connector met gedraaide pennen 
aan de wire-urap pennen. 

é. Soldeer de overige componenten op hun plaats. 


Als alles is gesoldeerd meet dan aan de hand van het schema 
zorgvuldig na of alles juist is verbonden. 

De 4809 deelt de zysteemklok door vier, zodat het geheel op 
1 MHz werkt bij gebruik van een 4 MHz kristal.Het gebruik 
van het kristal van de ATOM zou een draadbrug tot gevalg 
hebben, daarom is dit vermeden. 

De werking van dit IC kan nu worden getest met het 
onderstaand programma. Voorwaarde iz dan wel dat de in 
Datacheck 1987-2 gepubliceerde wijzigingen van de 
schakelkaart zijn gebouwd, zodat er RAM op #FXXX is. Ook kan 
men de benodigde software in EPROM bakken. 

Kiest men voor de RAM mogelijkheid dan moet na het runnen 
van het programma de 6502 uit de socket worden getrokken en 
vervangen door het 6809 opsteekprintje. Drukt men daarna de 
breaktoets in dan verschijnt ARC in de linker bovenhoek van 
het scherm ten teken dat de processor goed werkt. Het enige 
wat nu nea moet gebeuren is het aanpassen van de prcaramma's 
ASSIST OS en BOOTPCM,. 
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De boot-diskette 
info-tiles 
Sehnijder Microsystems, 
en bij BSC B.V., 


met het operating 
is verkrijgbaar bij: 
tel 04930-15óóó 
tet 05734-470. 


system FLEX 








USS LL2 1 vss HALT 
NAI 4 2 Met XTAL 
TRE 4 __3| IRG EXTAL 
«sv. al FIRG RESET 
NC 36 __5| BS MRDY 
NC BA &QUT| 
vee zvon EOUT 
Ao 2 AO DMA/ BREG 
At AL R/u 
Az A3 16 1 DO 
A3 12 11} A3 MC 6809 Dij 30 32 Dt 
A4 13 12) A4 D2|_22 Si D2 
as ta af as D3 
A6 15 14) Aé Da 
A7 AZ D5 
AS En ie A8 Dé 
A9 As 7 
Ato ie za A1o ALS 
Alt 20 1eJai1 AL4 
A12 Alz A15 


Voordat dit 


alles gerealiseerd wordt 


volgt hier 


en diverse 





BK 1986 


een korte 


uiteenzetting van de voordelen van de 6809 t‚o.v, de 6502. 


De 6209 
structuur. 
een tweede 
register. Dit 


ie een 
Naast de bekende registers van 

3 bits actumulator 
laatste betekent dat 


microproc 


essor met. 


intern 
de 6502 is er nog 
en een variabel 

de 5309 CPH 


een té Bit 


direct page 
256 direct 


pages tot zijn beschikking heeft. Een verder voordeel van de 
6809 CPU is dat de accumulators A en B tot een té bits brede 
accumulator D samengevoegd kunnen worden. 


De instructieset van de 6809 is 
zadat de 


450? 


cpu, 


mnema! 


nagenoeg hetzelfde zijn. 


De voorwaardelijke 


sprongin 


bijzonder krachtig. Zo kan d 
adressen springen. De BRA (BI 


SubRout ine 


nics en 


etructies van 


zeer verwant aan die van de 
adrescerings 


methoden 


de 6869 CPU zijn 


e processor over maximaal 32768 


Ranch Always) en 


(BER Branch ta 
instructies en enkete andere mogelijkheden maken 


een programma onafhankelijk van absolute adressen, 
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waardoor deze programma's “relocatable” zijn. Een van de 
sterkste eigenschappen die dit mogelijk maken is de 
adresseringsvorm "program counter relative”, waarmee men een 
relatief, dus ten opzichte van de feitelijke inhoud van de 
program counter, elke willekeurige geheugen plaats kan 


bereiken. 
Een adresseringsvorm die niet mogelijk ig op de 6809 CPU is 
indirecte adressering met indexereing _ (bijvoorbeeld 


LDA (#80) ‚Y). 
Gak de geïndexeerde adtregsering ziet er bij de 6809 iets 
anders uit dan bij de6502. De opcode bestaat uit 1 byte. Het 
daaropvolgende byte ("postbyte”) kan een 5 bits offset 
bevatten. De volgend een of twee bytes vormen een 8- of 
lté-bits offset in twee complementnotatie. Het effectieve 
adres kan als volgt worden berekend: 

Index (inhoud van X, Y‚ S, U, A, B of C}t oftset = eftectiet 
adres. 

Beperkt men de offset tot =16. +15, dan bestaat een 
instructie voor indirecte adressering uit slechts twee 
bytes, de opcode en de postbyte. 

Bij geindexeeerde adressering is ook indirecte toegeno tot 
het geheugen mogelijk. Dat betekent: de pointer inhoud, 
Bestaande uit index + offset, wijst een geheugenplaats aan 
waarin ADH van het effectieve adres is opgeslagen. In de 
volgende geheugenplaats bevindt zich ADL van het effctieve 
adres. Bij 6809 CPU staan ADH en ADL al in de goede volgorde 
achter de opcade.Bij de 6502 is dat zoals bekend niet zo. 
Daar is de volgorde ADL, ADH. De indircte richting van de 
geïndexeerde adressering bij de 6809 processor iz heel 
intressant, omdat daarmee bij hogere programmeertalen 
bijzonder gemakkelijk arrays en symbool-tabellen kunnen 
worden opgezet. 

Zelfs de accumulators kunnen als indexregister worden 
gebruikt. Daadoar kunnen de indexregisters niet alleen 
worden geincrenenteerd ot gedecrementeerd, maar kunnen ze 
ook worden beinvloed door rekenkundige bewerkingen (decimaal 
en binair), 














Op die manier kan de inder warden berekend. Als men enkele 
nren met de 4209 heeft gewerkt, raakt men al ving vertranat 
met de "accimutator indexed" adressering. In tesenstellina 


tat de 4502 heeft de 4809 tuee stackpainters: 5 en tt 
Stackpointer S is een !6-bits pointer; deze heett dezeltde 
functie als de stack-ponter in de 6502. Terugkeeradressen 
van subroutines en de inhoud van machine-registers werden 
automatisch in deze zstack-pointer weggezet. Ook interrupts 
worden via deze stack-painter uitgevoerd. De 
user-stack-pointer U staat helemaal ter beschikking van de 
programmeur. De U-pointer is eveneens láé-bits breed. De 
U-stack wordt als input-buffer of bij tekstverwerking als 
cue-pointer gebruikt. 
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Als conclusie kunnen we stellen dat de 6809 CPU een beter 
instructie repertoir heeft en bavendien een hogere snelheid 
dan de 6502 CPU, Verder is er sen standaard formaat voor het 
werken met floppy-diek. 





ANN Bee 





Car rt pf 
IC r= MC 6809 


wd 





10 PROGRAM 64809 B.KASTEEL 
20 

30P.812"6809 TEST PROGRAM*'*» 
4OP. "ASSEMBLING MACHINE CODE*'* 
SODATA #8E, HOO, #7F, HBD, HPF 
GODATA #OS, #20, HFE,#C6, #3A 
ZODATA #F7,#BO, #03, #C6, #07 
BODATA WF7,#BO,#O2, NCS, HOL 
SODATA WF7,#80, 8005 #C6, #02 
1OODATA #F7,N80, #01, #C6, #03 
110DATA #F?,#80, #02, #39 

120DATA #55 

130A=#2300 

140 DIM LLt&) 

1SOF, 1=20TOS8;LL (Da 1; N. 
140P. 221; P=A; GOS. a 
170P. 821; P=A; GOS, a 

180P.26 

190P, "ASSEMBLING 6809 CODE"”* 
200RESTORE 50; 1=0 

21000 

220READ A 
230? {#400+ 1) =A 
240I=I+1 

250UNTIL A=#55 

260 Do 

27071880041 =05 te r+t 

280UNTIL I=#100 
290! WIAFC=HOOFFNOOO 

3OOLINK LLT 

S1OIF?#30=#805P. "SWITCH OFF WRITE PROTECT" SOD; G. 30 
Z20OP. "TRANSFERRING 4409 CODE mr 
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33OLINK LLT 

340P.* SWITCH TO WRITE PROTECT" " 
350OP. "PRESS RETURN*" ’ st INKKFES4 
340P. "TAKE OUT 4502 REPLACE WITH 6809" > 
S70P8BFFF 480 

380END 

390 

4$00ar 

4LO7LL1LDA@$80; STANBFFF 

$20:LL 2LDA#0400, X 

4:3OSTARFFOO, X 

44ODEX3 BNELL 2 

4SOSTX#BFFF; RTS 
$4&0:LLSLDA@HBO ; STAKBFFF 
470LDA@KOO ; STARFFOO; CMPRFFOO; BNELL 4 
480LDA@HSS; STANFFOO; CMPAFFOO ; BNELt 4 
490LDA@&HOO; STANBO3 IMPLLS 

500:LL4tL DARHBO; STANBO 
SLO:LLSLDA@ROO; STANBEFF; RTS 

5201 

SOR, 


FLEXIMOD 


Er zijn in Acorn Nieuws reeds diverse artikelen verschenen 
over het aansluiten van een modem op de ATOM.De hierna 
beschreven modem FLEXIMOD is een multistandaard direct 
gekoppelde madem. Als we een modem willen bouwen zal eerst 
een keuze moeten worden gemaakt tussen direct gekoppeld of 
akoustisch. Bij direct gekoppelde modems is de kans op 
storingen veel kleiner, zodat de keuze op dit type valt. Het 
is echter door de PTT niet toegestaan direct gekoppelde 
madems op het telefoonnet aan te sluiten zonder dat daarvoor 
eerst PTT goedkeuring is verkregen. Voor de individuele 
gebruiker zijn deze kosten om zo'n goedkeuring te krijgen 
nogal hoog f 1000,-, hetgeen onoverkomelijk is voor de 
atomist.Met de club is het echter wet mogelijk om de kosten 
over meerdere leden uit te spreiden. Onderstaand verhaal is 
dan oak bedoeld om tot een clubmodem te komen met officiele 
goedkeuring van de PTT. Ondertussen mag u het moden alleen 
gebruiken in uw eigen telefconcentraie thuis. 

In de Elektuur van september 1944 heeft a! eens zo’n modem 
gestaan. Deze maakte gebrutk van de AM 7910 morem chip, een 
zeer veelzijdig IC dat tevens meerdere standaards mogelijk 
maakte en een faciliteit voor auto-answer heeft. Het geheel 
is dermate geperfectioneerd dat ipv volkstwagen)moden beter 
over Rotls Royce modem gesproken kan warden. Kosten voor dit 
alles f ?49,- inclusief goedkeuring, De hieronder beschreven 
modem mist een aantal van de faciliteiten van het 
valksmoden. 





LE AS LPT DD 


Er zijn in Acorn Nieuws reeds diverse artikelen verschenen 
over het aansluiten van een modem op de ATOM.De hierna 
beschreven modem FLEXIMOD is een multistandaard direct 
gekoppelde modem. Als we een modem willen bouwen zal eerst 
en keuze moeten worden gemaakt tussen direct gekoppeld of 
akoustisch. Bij direct gekoppelde modems is de kans op 
storingen vee! kleiner, zodat de keuze op dit type valt. Het 
is echter door de PTT niet toegestaan direct gekoppelde 
madems op het telefoonnet aan te sluiten zonder dat daarvoor 
eerst PTT goedkeuring is verkregen. Voor de individuele 
gebruiker zijn deze kosten om zo'n goedkeuring te krijgen 
nogal hoog f 1000,-, hetgeen onoverkomelijk is voor de 
atomist.Met de club is het echter wet mogelijk om de kosten 
over meerdere leden uit te spreiden. Onderstaand verhaal is 
dan oak bedoeld om tot een clubmadem te komen met officiele 
goedkeuring van de PTT. Ondertussen maa u het modem alleen 
gebruiken in uw eigen telefooncentrale thuis. 

In de Elektuur van september 1944 heett a! eens zo'n modem 
gestaan. Deze maakte gebrutk van de AM 7910 mortem chip, een 
zeer veelzijdig IC dat tevens meerdere standaards mogelijk 
maakte en een faciliteit voor auto-äansmer heett. Het geheel 
is dermate geperfectioneerd dat ipv volkstwagen)moden beter 
over Ralls Royce modem gesproken kan warden. Kosten voor dit 
alles f ?49,- inclusief goedkeuring, De hieronder beschreven 
modem mist een aantal van de faciliteiten van het 
valksmoden. 
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De zelfbouw kosten van het geheel zuilen omstreeks de f 
150,- komen te ligaen. Verremeg het grootste deel f 85,- is 
de medemchip zelf. Door gezamelijke inkoop is wellicht hier 
ook nog wat aan te doen. 

Voor diegene die de hovengenoemde Elektuur niet hebben volgt 
hier een uiteenzetting van de AM 7910. 

Bij dit IC îs werkelijk alles gedigitaliseerd wat er maar te 
digitaliseren viel. Zelfs de filtering en de golfvorm 
opwekking (een sinus) gebeuren digitaal. 

Onderstaand het algehele blokschema van het gehele IC. Een 
zender blok en een ontvangerblak en twee blokken "interface 
control” en "timing control", 


30 MAIN 






TRANSMITTED 


TU DATA 25 BACK 






CAP1 60 
CAP2 7o o RECEIVED TLT 
RECEIVED SO BACK 15 DATA 









CARRIER 
MCO 170 912 REQUEST TO SEND 
MCI 186 oi3 CLEAR TO SEND Joan 
MC2 1% 025 CARRIER TO DETECT 
MCS 200 INTERFACE oil RESGEST TO SEND 
MCA 2lo ol4 CLEAR TO SEND BACK 
DATATERMINAL 16, „27 CARRIER TO DETECT) 
READY 1 RING 
o 3 RESET 


02 +5V Vee 

o—04 -5Y Vbb 

Gs AGND 
a 22 DGND 


XTALSCLK 24e 
XTAL2 230 


De zender is onderstaand noa eens verder ontleed. De seriele 
data die verstuurd moeten werden, aaan hier naar binnen en 
kamen er aan de andere kant weer uit als een FSK-signaal dat 
over de telefoonlijn kan worden verstuurd. De zender levert 
dus twee frequenties. De FSK-sianale moeten zuiver 
sinusvormia zijn willen we de _ teletoonlijn niet 
verontreinigen. De opwekkina van de sinussen gebeurt geheel 
digitaal, 
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terwijl het omschakelen naar de andere treguentie bovendien 
alleen tijdens een nuldoorgans wan het signaal aeschtedt. 
Het digitale FSK-signaal gaat vervolgens door een digitaal 
bandfilter, wordt dan door een D/A omzetter vertaald naar 
een analoog signaal en dit laatste wordt nog eens door een 
analoog filter gestuurd voordat het de lijn opgaat. Al dat 
getilter is nodig om de hoeveelheid energie die de 
telefoonlijn wordt opgestuurd zoveel mogelijk te beperken. 
De hoeveelheid energie die in bepaalde banden op een 
telefoonlijn mag worden gestuurd is aan (strenge) regels 
gebonden om overspraak en storingen zoveel mogelijk te 
vermijden. 


MCO-MC4 

















SINE DIGITAL ANALOG 
TLCLS 1D | SYTHESIZER BANDPASS Past ref 
__ FILTERS FILTER 


Onderstaand is het ontvanger gedeelte afgebeeld. 

Dit zet de FSK-signalen weer om tot digitale signalen. Het 
signaal van de telefoonlijn gaat eerst door een gewoon 
anatoog filter. Daarna volgt een A/D omzetter die werkt op 
„en bijzonder hoge snelheid van 496kHz (bijzonder hoog ten 
opzichte van de FSK freguenties). Zo worden invloeden van 
hogere harmonischen in het FSK-signaal vermeden. Hierna 
volgt een digitaal bandfilter en tenslotte wardt het 
getilterde signaal cok digitaal gemoduleerd, waarna de data 
overblijft. 





DIGITAL 
DEMOGDULAT TON 


CARRIER 
DETECT 


Een “carrier detect” blok geeft aan wanneer er data aan de 
uitgang aanwezig zijn. 

De "timing control” levert de exacte frequenties voor het 
FSK-vekeer. 

In het blokschema zijn ook duidelijk de gescheiden lijnen 
voor main en back channel te zien. Dit is echter alleen van 
betang voor M23 (1200/75 baud), Bij VU2l worden alleen de 
main lijnen gebruikt. 

Teven: moet de auto answer tariliteit genoemd warden. 
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Het IC is hiermee in staat zelf een telefoon oproep te 
beantwoorden. Om dit ook daadwerkelijk te realiseren is 
adritionele hardware noodzakelijk. 

De *intertace control" regelt het hele sionaalverkeer tussen 
de modem en de ACORN ATOM. Tevens zitten hier enkele 


ingangen (MCO..MC4) waarmee de modem op verschiltende 
standaarden kan worden ingesteld. In Nederland zijn 
voornamelijk van belang V23 en V21. 

De onderstaande tabel geeft een overzicht van alle 


mogelijkheden die men kan bereiken door de draaischakelaar 
in de betreffende stand te zetten. 


stand standaard =pd dpiex transmit recieve answer 
o 1 Oo 1 

O bell 103 orig 300 full 1070 1270 2025 2225 - 
1 bell 103 ansr 300 full 2025 2225 1070 1270 2225 
2 betl 202 1200 half 2200 1200 2200 1200 2025 
3 bell 202 1200 half 2200 1200 2200 1200 2025 
4 V.21 orig 300 full 1180 #80 1850 1450 -— 
5 V.2t ansur 300 full 1850 1650 1180 980 2100 
4 V.23 (2) 1200 f/h# 2100 1300 2100 1300 2100 
7 V.23 (2) back 75 f/h& 450 390 450 390 = 
8 V.23 (19 600 half 1700 1300 1760 13500 2100 


)& Dit kan zowel half duplex LZ00b/e of asymetrisch full 
duplex met 75 b/s originate en 1200 b/s ontvang. (viditel 
mode) 


Als we het schema raadplegen zien we dat het modem veel 
eenvoudiger van opzet is dan het betreffende Elektuur 
ontwerp. Het gedeelte rond de zend en ontvang ingang van het 
modem IC is echter vrijwel hetzelfde zodat PTT goedkeuring 
zeker mogelijk moet zijn. De keuze tussen de verschillende 
standen “telefoon en “modem” gschiedt met schakelaar 1. 
Schakelaar 2 wordt gebruikt als er via de backchannel moet 
worden gezonden. (zie bovenstaande tabel). 

Middel LED's wordt de status van de lijnen TxD RxD en CD 
weergegeven, hetgeen zeer verhelderend kan werken. 

Geheel links op het schema moeten een aantal keuzestropjes 
gelegd worden. Deze kiezen tussen een TTL of RS232 signaal 
niveau op e@ uitgangsbus. Voor dit laatste heb ik een 
9-patige D connector gebruikt (overeenkomstig viditel 
modem). Voor de aansluiting op e ATG 1/0 KAART moet pop 
pennen 5 en 9 van deze bus -12V en 12V aanwezig zijn. De bus 
ie dan als volgt gedefinieerd: 


GND RxD TxD RTS =124 
. . . . . 
1 2 ed d 5 

RING CD DTP +124 
- . - . 


P3 he a Kd 
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De voedina is eenvoudig van opzet en levert zowel +5V als 
=SUy, 

Ook wordt van de voeding de benodiade +12V en -12V gehaald, 
noodzakelijk voor de RS232 niveau aanpassing. 

Tat slot moeten de mogelijkheden nog worden genoemd waartoe 
de maden in staat is maar waarvan met de hier beschreven 
hardware nag geen gebruik wordt gemaakt. 

PL1 is de connector voor de auto-ansmwer mogelijkheid. 

PL2 geeft de mogelijkheid voor een respeader schakeling 
zodat aan de conmputerzijde met eer enkele baudsnelheid 
gewerkt kan worden. 

Link 1 geeft de plaats aan waar men een autodial faciliteit 
aan de modem zeu kunnen koppelen. 
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UNITVERSEEL ATOM I/O BOARD 
door B. Kasteel. 


UITGANGSPUNTEN. 


De ATOM heeft het gebied HBXXX gereserveerd als memory 
mapped 1/0. Het ligt dus voor de hand om juist im dit gebied 
onze uitbreidings kaart te plaatsen. Afhanketijk van de 
gebruiker zal in dit gebied vrij naar keuze met 
dipschakelaars een gebied uitgedecodeerd worden. De kaart 
zal zo weinig mogelijk geheugen blokkeren. Er warden vier 
blokken van 16 bytes uitgedecodeerd voor elk van de vier 
uitbreidingen. De kaart wordt stechts geactiveerd voor deze 


#40 bytes. De vier uitbreidingen zijn achtereenvalgens : 


VIA 4522 Versatile Interface Adaptor 

ACIA 6551 Asynchronaus Communications Interface Adaptor 
A/D Converter uPD 7002 

D/A Converter ZN 425 E 


Alvorens tot een beschrijving aver te gaan van deze 
individuele IC's zal eerst het resterende deet van de 
interface beschreven worden. 

Als u ATOM uitbreidingen in een rack plaatst dan kunt u de 
VIA niet meer gebruiken. Dit komt daor het feit dat een 
lange flatcable de data niet juist doorgeeft. Deze 
uitbreidings kaart presenteert aan de voorkant van de kaart 
alle connecties van de VIA op de zelfde pinnen als de ATOM, 
U. kunt dus uw eprom programmer, Speech synthesizer, 
soundboard et andere eigen onwikkeling rechtstreeks op de 
voorkant van deze kaart plaatsen. Er zijn dan slechts 
enkele software veranderingen nodig om het geheel aan de 
praat te krijgen. Er is al een box ontwikkeld met de 
volgende statements: PLAY SOUND MUSIC PROG SPEAK.Deze is 
geadresseerd op #BCOO tot HBCSF. Dit is naar mijn idee het 
beste gebied on de uitbreidings kaart te plaatsen, omdat 
het gebied #BCOO — HBFFF al buiten de bus is geplaatst 
isv.m. de schakelkaart. In het verdere verhaal zat ik het 
steeds hebben over b.v. #BCO2, maar dit is uiteraard vrij’ 
naar keuze op een andere waarde in te stellen. Op de kaart 
is verder een aansluiting te vinden vaor de jaystick, zodat 
met « een paar wijzigingen in uw programmatuur alle 
programma’s om te bouwen zijn voor de op deze kaart aan te 
sluiten joysttek. De individuele uitbreidingen zijn 
afzonderlijk te bouwen om de kosten te spreiden. 


HARDWARE VAN DE KAART. 


De kaart is volledig gebutterd d.m.v. ICI, IC2 en IC3. Via 
IC4, ICS en 6 wordt het adres bepaald waarvoor. de kaart 
acttef wordt. De dipschakelaars zijn getekend vaor #BCXX, 
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maar u kunt een ander gebied kiezen. Met LINK 1 wordt het 
adres verder gedecodeerd. Hier is met LINK 1 gekozen voor 


#BCOO -— #BC3F maar er kunnen 3 andere gebieden gekazen 
worden. De overige hardware behoort tot de individuele 
uitbreidingen. 


Deze uitbreidingen zijn : 
De ACIA IC17 met zijn in en uitgangsbutters IC15 en ICiá,. De 
=12V en i2V voedingen vacr de buffers worden betrokken van 
de modem en aan de I/O kaart toegevoegd op pinnen S en 9 van 
PL2. Als men een TTL logic, modem heeft dan zal men deze 
buffers moeten wijzigen evenals de voedingslijnen. De ACIA 
wordt hier niet volledig gebruikt. Veel van de handshake 
signalen zijn door verbonden om voor de ATOM de moden te 
simuleren en de verbinding eenvoudig te houden. Als u deze 
signalen toch wilt gebruiken, raadpleeg dan de elektuur van 
november 1985. 


De VIA (IC131 heeft twee bijzondere eigenschappen. 
Allereerst is er op de B poort n serie buffers met LED's 
geplaatst die men kan gebruiken om een acht bits getal 
zichtbaar te maken. Eveneens is er een acht polige dipswitch 
"verbonden met de A poort, zodat men bijvoorbeeld bij het 
opstarten een aantal keuzes kan instellen. 





De A/D omzetter die wordt gebruikt is dezelfde als degene 
die in de BBC computer gebruikt wordt, Dit IC, de uPD 7002, 
heeft een viertal analoge ingangen. Men kan software 
instelbaar een 12 of 8 bits omzetting maken. Het IC heeft 
als enig nadeel zijn voor de huidige techniek lage 
omzettings snelheid. (das voor 8-bits omzetting en 10ms bij 
i2-bits omzetting 3 

De D/A omzetter is opgebouwd rond het goed beproefde IC de 
ZN 425 E. Het is noodzakelijk bij het gebruik van dit IC een 
tatch in te bouwen, die de benodigde data kan vasthouden. Op 
de ATOM I/O board wordt dit verzorgd door ICS de 74LS373. Er 
is dan cok slechts 1 kanaal ingebouwd. 


DE VERSATILE INTERFACE ABDAPTOR 

Er is in de verschillende nummers van ACORN- ATOM NIEUWS al 
veel geschreven over de 6522, Een volledige beschrijving van 
alle registers is echter nog niet verschenen. 

HHoewel vaar programmeerdoeleinden de beide poorten A en B 
slechts weinig verschillen zijn zij inwendig nogal 
veschillend. Eerst moet voor beide registers de data 
direction register beschreven worden. Dit gebeurt per bit 
teen 1 betekent output, n O input? „Als dit gebeurd is 
kunnen we de databits lezen of schrijven. Bij poort B 
gebeurt dít op adres #BCIO, aaar bij poort A kan dit zowel 
op HBCIt als op HBCIF gebeuren. 

Waarom zijn er nu twee registers voor poort A / Om dit in te 
kunnen zien moeten we de volgende twee registers bekijken 
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1) De Auxilairy Control Register. Hiermee kunnen we de in- 
puts in poort A enabelen door een 1 te schrijven naar 
bit O. 
2) De Peripherat Control Register. Hiermee setecteren we 
de optie voor CAZ en CAl met bits 0 — 3. 
Een overzicht van de mogelijkheden is gegeven in de 
onderstaande tatel.Als voorbeeld bekijken we de volgende 
situaties 
Peripheral Control Register bits 0-3 zijn OOOL. Als nu 1/0 
poort A wordt geschreven of gelezen via HBCIi dan zal CA2 
een low uitgang hebben. Gebeurt dit echter via adres 
#BCIF,dan zal dit geen invloed hebben op CAZ. 
Als door tezen of schrijven van 1/0 poort A CAZ een overgang 
meemaakt zuiten alle voorgaande interrupts van CAL oft CAZ 
worden gecieared. Hieruit volgt dan dat bij H#BCIF dit niet 
gebeuren kan,omdat CA2 niet wordt beinvloed door adressering 
van $BC1IF. 
Adressering van #BCIi of #BCIF heeft geen invloed op de 
opties voor CAZ. 


76543210 Bit no 
Auxilairy Control Register 
A4 


Disable inputs at 1/0 Port A 
Enable inputs at 1/0 Fort A 
Disable inputs at 1/0 Port B 
Enable inputs at 1/0 Port B 
Disable Shift Register 

Shift in at counter 2 rate 

Shift in at 02 ciock rate 

Shift in at external clock rate 
Free runn output at counter 2 rate 
Shift out at Counter 2 rate 
Shift out at 02 ctock rate 

Shift out at external clock rate 
Decrement counter 2 on 02 clock 
in one shot mode 

Decrement counter Z on external 
pulses input via PBé 


{ Disable output via PB? 
. Enable output via PBZ Counter 

One shot mode controls 

Free running mode 

In de tabel voor de Peripheral Control register betekent de 
input mode dat een geldige overgang van CA2 wordt gecteared 
als 1/0 poort A geadresseerd wordt. Bij de independant input 
mode gebeurt dit niet. Bij adressering van HBCIF wordt de 
nog geïdige vorige interrupt nooit gecleared. 
Poort B verschilt qua hardware nogal van poort A. Zo wordt 
bij schrijven een ander register aangesproken dan bij lezen, 
zodat 
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4 54 32 1 0 4—Bit no 
4---Peripheral Control Register 





O Request interrupt on high 
te low transition of CA2 on interrupt 
1 Request interrupt on low request set 
to high transition of CA2 IER bit 1 


000 CAZ input wade Request interrupt”) - 

Ool CA2 independant on high to ton on inter 
input mode CA2 transition rupt re- 

010 CAZ input mode Request interrupt quest set 

Ott CAZ inaependant) on low to high IFR bit O 
input mode CA2 transition 


100 CA2 output low on CPU read or write 
101 CA2 output low pulse on CPU read or write 
110 Output CA2 Tow 
111 Output CA2 high 
0 Request interrupt on high 
to low transition of CBf 
t Request interrupt on tow 
to high transition of CBt 





000 CB2 input made Request interrupt 

OOl CB2 traopenaant) on high to low an inter 
input mode CB2 transition rupt re- 

C10 CB2 input mode Request interrupt quest set 

Ott CB2 independant) on low to high IFR bit 3 
input mode CB2 transition 


100 CB2 output low on CPU write 

101 CB2 output low pulse on CPU write 
119 Cutput CB2 low 

111 Output CB2 high 





CPU write data 


eight 1/0 
pins Port A 


CPU read data 


CAL data 
tatches 
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output data niet meer terug gelezen kan worden, hetgeen bij 
poort A wet het geval was. De bits 5 - 7 van het Peripheral 
Control Register hebben betrekking op de keuze voor CEt en 
CB2. Ook dit verschilt van poort A in zoverre dat de tom 
pulse of lom uitgang van CBZ nu alleen bij een write 
opdracht van het data register optreedt, terwijt dit bij 
zowel read als write gebeurt op poort A. 

Bits 6 - 7 van poart B kunnen door de interval timer 
gebruikt worden en oak door de shift register. Deze hebben 
logical priority over normale data transfer, zodat het. 
verstandig is deze modes niet gelijktijdig te gebruiken met 
normale data transter. 

Voordat men deze output modes van bits 6 en 7 gebruiken kan 
moet amen de betreffende bits eerst als oautpit pins 
definieren met het data direction register. Als men een high 
naar Iow overgang wil realiseren moet men eveneens de 
betreftende bite als high definieren. 


TIMER 1 


Er zijn vijt registers die betrekking hebben op interval 
timer 1. Deze zijn achtereenvolgens : 


1) Be Auxitairy Cantrol Register bits é en 7. Deze bite 
bepalen free running mode of one shot mode en bepalen of PB7 
als output meedoet. 

21 De adressen WRCIG en #BCI7 beschrijven respectievelijk de 
low en high oarder latch. 

3) Lezen van #BC14 geeft de waarde van de Ion order counter, 
terwijl schrijven de lom order latch beschrijft. 

4) Bij lezen van WBCIS krijgt u de waarde van de high order 
counter, terwijl bij schrijven zowel de high order latch als 
counter wordt beschreven. Schrijven heeft ook nog de functie 
on de low order latch naar de low order counter aver te 
plaatsen om zodoende de nieuwe interval tijd te presenteren. 


De counter telt nu continu af ap de teruggaande flank van 
02. Een geactiveerde time out geeft nu een interrupt 
request. Als bit 7 van 1/0 poort B is geactiveerd dan wordt 
het signaal geinverteerd of wordt een low putse gegeven. 


SELECT SELECT SELECT SELECT 
CODE CODE CODE ODE 
OLOL OLLI 0110 0100 






READ WRITE WRITE READ 


High order Low order 
Latch byte Latch byte 


High order 
Counter byte 
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One shot mode. 

Hierbij ig de latch niet verbonden met de counter Iogica. Na 
de eerste time out wordt direct BFEFF ingeladen in de 
counters, waana het aftellen biijft doorgaan. Bij volgende 
time outs wordt nu geen interrupt meer gegeven en ook wordt 
het bitje 7 van de B poort niet meer veranderd. Het laden 
van deze mode gebeurt door eerst de low order latch te laden 
en dan de high order latch/counter. 


Free running made. 

Het opstarten gebeurt op dezelfde wijze als bij de one shot 
mode. Bij een time out worden direct de latches naar de 
counters overgeplaatst en begint het aftellen opnieuw. Men 
kan tussen twee time outs wel de latches een nieuwe waarde 
geven. Ook bij deze mode geìdt dat als men op bit 7 van 1/0 
poort B een output signaal wil hebben, dat men deze dan 
eerst moet initialiseren. 


16 Bit Latch register 
High Order Low Order 
Latch byte Lateh te 


Cannection enabled 
by ACR bit 7=1 










i/Q Port B pin 2 


Lon Order _n, 
0 


Connection 


High Order 
ounter byte 
enabled by 


16 Bit Counter Register ACR bit 6x 





TIMER 2 


De mode waarin timer 2 opereert wordt bepaald door de 
Auxilairy Control Register bit 5. N 






Low Order 
Latch Byte 










Permanent connection 
148 Port B pin é 
Kigh Order Low Order 
Counter Byt ounter Byte 
Connection enabled 
by selecting Pulse 


16 Bit Counter Register Caunting Mode 
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One shot mode. 

Pit is dezelfde mode als timer 1 maar nu is er geen signaal 
beschikbaar op bit 7 van 1/0 poort B, Ook de laad procedure 
is hetzelfde als bij timer 1, Eerst wordt de low order latch 
geladen op adres #BCI8 en dan de high order counter op 
HBCI9. Dit laatste heeft tevens het effect dat de low order 
tatch wordt doorgegeven aan de low order counter. 


Pulse count mode, 
Dit is een alternatieve one shot mode. De teller wordt nu 
met 1 verminderd als er een high naar low overgang op bit é - 
van 1/0 poort B optreedt. Als er dus #20C0 in intervat timer 
2 geladen. wordt in deze mode dan zat na 8192 puls 
wisselingen op PBé een time out optreden. PB6 moet eerst op 
input gezet worden door additionele software. 

‘In beide modes wordt na een time out de telter geladen met 
HEFFF waarna het tellen gewoon doorgaat. Na een nieuwe time 
out treedt er echter geen nieuwe time óut op. 


Select Select 
code code 
[veer | [coo | 
Read Write Write Read 





High Order 
Counter Byte 


SHIFT REGISTER 


De actie van het shift register wordt bepaald daor het 
Auxilairy Control Register bits 5, 4 en 5. Shitten kan zowel 
als input of als output via CB2. Data wordt via ‘bit 0 naar 
binnen geschoven en via bit 7? ‘naar buiten gezet. 
Verschillende klaksignalen kunnen worden _ gebruikt 
afhankelijk van het Auxilairy Controt Register 


76543210 4—-Eit no 


hifter 


Out to CB2 
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Mode 000 shift register disabled 

CBL en CB2 worden nu door bits 7, & en 5 van het Peripherat 
Control Register bediend. Men kan nog steeds lezen en 
schrijven in de shift register, zodat het als geheugenplaats 
kan dienen vaar wen data byte. 


Mode OO1 input mode bediend door interval timer 2 

Alleen de low ordenr byte van timer 2 is actief, waardoor 
een maxtmum van 25Só counts gebruikt kan worden. Een low 
pulse met een breedte van 1 02 klok wordt via CB naar 
buiten gestuurd, zodat met externe logica de volgende bit 
ingeklokt kan worden. Bij elk bit wordt een interrupt 
gegenereerd en als 8 bits ingeklokt zijn wordt een extra 
interrupt gegenereerd. Deze made van tizer 2 is alleen in 
deze shitt mode beschikbaar. Als timer Z een time out 
genereert wordt de low erder latch naar de low order counter 
verhuisd en begint het aftellen opnieuw. Men moet dus eerst 
de low order latch laden voordat de shitt register in made 
001 gezet wordt. Men kan uiteraard na een time cut de timer 
2 low order latch opnieuw laden. Om deze mode te gebruiken 
moet men eerst een O in de high order counter van timer 2 
laden. Deze mode heeft een hogere prioriteit dan de 
peripheral control register wat betreft controle over CBi en 
CB2. 


Mode 010 input onder 02 klok strobe. 

Hier wordt het shift register gevuld met een frequentie 
gelijk aan de 02. Het inschuiven stopt als 8 bits naar 
binnen geschoven zijn. Er wordt dan een interrupt 
gegenereerd. 


Mode Oll input geklokt door externe puls strobe. 

Een high naar low overgang ap CBî wordt geïnterpreteerd als 
een strobe om de volgende data op CB2 in te klokken. Elke 8 
bits wordt een interrupt gegenereerd, De CPU moet dan de 
inhoud van het shift register lezen voordat de volgende high 
to low overgang van CB1 plaatsvindt. Gebeurt dit niet dan 
treedt een error op hoewel geen error status gerapporteerd 
wordt. 

De shift register controle over CB1 en CBZ heett. priorteit 
over de peripheral control register. Men moet echter 
voorzichtig zijn met deze mode, omdat als men via bit 4 van 
de peripheral control register een actieve overgang van CBí 
geactiveerd heeft, een interrupt gegenereerd zal worden als 
men op de hierboven beschreven wijze via CBi naar binnen 
klokt. Men kan dan alleen nog een interrupt voorkomen door 
deze via via de interrupt enable register te blokkeren. Dit 
register zal later warden beschreven. 


Mode 100 free running output mode onder controle van 
interval timer 2. 
Deze mode is de output versie van mode OOL. De bits die 
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via bit 7 naar CB2 naar buiten geschoven worden,worden weer 
ingeladen via bit 0, Het schuiven is continu,zodat ket 
gatraon in de shift register continu via CB2 naar buiten 
geschoven wordt. 


Mode (Ot Gutput onder controle van interval timer 2. 

Deze mode verschilt van de vorige in zoverre dat nu etke 8 
bits een interrupt gegenereerd wordt en het schuiven wordt 
gestopt. Men kan gebruik maken van deze interrupt door 
voordat de timer de volgende time out geeft, het shift 
register te laden met het volgende te zenden byte,zadat een 
continue straom data ontstaat. M 


Mode 110 shift out ander 02 controle. 
8 Bits worden uit het shitt register geschoven,geklokt door 
02. Het proces stopt dan. Deze wade wordt bereikt op de 
volgende manier: 
1 laad 000 in bits 5, 4 en 3 van het auxilairy control 
register. 
2 laad een byte data in het shift register. 
3 enabte het schuif register door 110 in bits 5, 4 en 3 te 
taden. 
A disable het register daor bits 5, 4 en 5 met 000 te 
iaden. 
Mode 111 shift out,gekiakt door externe strobe putse. 
Deze made is identiek aan mode 101, behalve dat nu de data 
ingeklokt wordt door een high naar low overgang op CBi. Net 
zoals mode Oil moet men met de interrupt enable register 
eventuete interrupts blokkeren. 


INTERRUPT LOGICA 


Er zijn twee registers die met de interrupt logica zijn 
verbonden, 


1 De interrupt flag register #BCID 
2 De interrupt enable register NBCIE 


Interrupts van een bepaalde bron kunnen geactiveerd worden 
door een 1 te schrijven naar naar de betreffende bit met een 
1 in bit 7 van dit register. Het schrijven van #CS naar de 
interrupt enable register enabled dus interrupts afkomstig 
van timer ft en overgangen van CB!. Door een 1 te schrijven 
naar bepaalde bits met en O in bit 7 worden deze specifieke 
interrupts weer disabled. 

Men kan in het interrupt flag register zien of er een 
interrupt van een bepaald type is geweest. Als er een 
interrupt van gen bepaald type is geweest en dit is via het 
interrupt enabte register ook enabled, dan zal er een 
interrupt gegenereerd warden door de IRG pin van de 6522 
taag te maken. Interrupts kunnen worden gecleared door een 1 
te schrijven naar het betreffende bit in het 
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interrupt #lag register. Een O heett geen invloed. Bit ” kan 
hierdoor niet beinvloed worden. Als men bv #82 naar het 
onderstaande interrupt flag register schrijft dan zal de 
interrupt afkomstig van CAi worden gecieared. 


Zé 5 43210 d#-Bit no. 
d-interrupt $lag register 
d-interrupt enable register 


4 Active transition of CA2 
Active transition of CAI 
Active transition ot CB2 
Active transition of CB1 
Shift register eightn shift 
Interval timer 2 time out 
Interval timer 1 time out 
-Enable/disabie specification 
Any active interrupt reguest 





Er zijn een aantal manieren waardoor interrupts automatisch 
gecleared kunnen worden. Deze zijn in de onderstaande tabel 


zanengevat. 
ser CLEARED BY 
& Time out of timer 1 Reading Timeri Low Order Counter 
or writing TI High Order Latch 
S Time aut et Timer 2 Reading Timer2 Low Order Counter 


er mwiting T2 High Order Counter 


4 Completien of 8 shifts Reading or writing the shitt 
vegtster 


3 Active transition of the Reading from or writing to 1/0 
signaì on CBi Part B 


2 Active transition of the Reading from or writing to 1/0 
signal on CB2(input mode) Port B in input mode anty 
« 


t Active transition of the Reading from or writing to 1/0 
signal on CAL Port A using adress OOO1 


0 Active transition of the Reading tram or writing to 1/0 
signal on 2(input mode) Port A Output register (ORA) 
using adress 0001 in input 
mode only 
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RS 232 INTERFACE 


RS 232 is het geheel van gestandaardiseerde afspraken, 

gemaakt om communicatie tussen twee verschillende systemen 

mogelijk te maken. De correcte afhandeling van de verzonden 

en ontvangen data is gebaseerd op een protocol.Dit kan 

worden beschouwd als een aantal spelregels om het 

dataverkeer in goede banen te leiden. In het algemeen 

gebruikt men hiervoor de RS 252 aanbevelingen of de zeer 

verwante V24 aanbeveling. Naast de dataverbinding bestaan er 

een aantal besturinastijnen voor de onderlinge besturing 

tussen detwee systemen. 

Als voorbeeld nemen we nu het besturen van een modem vanuit 

de computer. De afkortingen die hierna gebruikt zullen 

worden zijn samengevat in een tabel. - 

DTR, DSR en DCD zijn typische signalen die worden gebruikt 

bij het tot stand brengen en het verbreken van de 

verbinding. De overige signalen komen pas aan de orde ais de 

verbinding er at is. De volgende stappen zijn nu nodig om 

een full duplex verbinding tat stand te brengen. (full 

duplex = RxD en TxD gelijktijdig in gebruik) 

1) De ATOM maakt de DTR lijn actief ten teken dat er een 
verbinding gevraagd wordt. 

2) De modem maakt als antwoord de DSR lijn actief ten te- 
ken dat de modem klaar is om te ontvangen. 

3) Als de ATOM wil zenden maakt hij de RTS lijn actief. 

4) De modem geeft ten teken dat hij data kan ontvangen de 
CTS lijn vrij. 

5) Bij fuil duplex kan-er attijd ontvangen worden met als 
voorwaarde dat DCD aanwezig is op de modem. 


Het is echter niet noodzakelijk om de communicatie op zo'n 
ingewikkelde manier te laten veriopen. Door een aantal 
doorverbindingen te maken, zowel bij de modem als bij LINK 6 
kan men grotendeels zowel de ATOM als de modem zijn eigen 
signalen taten genereren. Wel heb ik het DTR signaal 
doorgevoerd naar Je modem zodat de modem pas begint met het 
verzenden wan data naar de ATOM als deze er opk 
daadwerkelijk klaar voor is. 

Hardwarematig zijn er nog een tweetal stropjes ingebouwd. 
LINK 5 is om het IRQ signaal aan de ATOM door te geven en 
middels LINK 4 kan men met PBO van EC 13 het DTR signaal aan 
de modem doorgeven. 

Communicatie met de ATOM gaat middels een vijftal registers. 
Dok is er een softwarematige reset mogelijk. Deze registers 
zijn gerangschikt als tunctie van de ingangen RSO en RSL, 
die verbonden zijn met AO en Al zodat de registers aîs 
opeenvolgende adressen in I/O geheugen verschijnen (#BC20 — 
HBCZS) 
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Table t. Register Select Coding 





RSE RSO Write Read - 
o 0 Transmit Data Reciever Data 
Register Register 
ee 
oa 1 Programmed Status Register 


Reset (Data is 
"Don't care") 





1 e Command Register 





1 1 Control Register 





De functie van de registers wordt nu beschreven 


TFransmit en Receive Data Register 

Bij zenden wordt bit O (LSB) het eerst uitgezonden. De niet 
gebruikte bits (bijv. bit 5, 6 en ? bij S-bites formaat) 
worden als don’t care beschouwd. In de entvang mode komt het 
eerst ontvangen data bit op plaats 9, de volgende databits 
op bitptaats 1, 2 etc. De hoagste, niet gebruikte 
bitplaatsen „orden met een O gevuld. 


Status Register. 
Dit register kan alleen uitgelezen worden. Bit 0, 1 en 2 
geven aan of er tijdens ontvangst een pariteitstout, een 
framingstout (stopbit controle) ot een overrunfout is 
opgetreden. Het belangrijkste zijn echter bit 3 en 4. Deze 
geven aan oft er een volledig karakter verzonden of ontvangen 
is. Deze bits moeten in het besturingsprogramma afgevraagd 
worden om te beslissen of een volgend karakter aan de beurt 
is. Via de laatste drie bits warden de DCD en DSR lijnen en 
de interrupt status uitgelezen. Wanneer men voor de 
besturing van de interface kaart een interruptstructuur 
toepast, moet men na het detecteren van een interrupt als 
eerste het status register testen om te beslissen hoe er 
verder gehandeld gaat worden. Wanneer men afziet van een 
dergelijke interrupt structuur, wordt LINK 3 niet 
. aangebracht, dat wil zeggen de interrupt wordt wel 
gegenereerd, maar wordt niet doorgegeven naar de ATOM. 
Wanneer een (willekeurige) schrijfoperatie naar het status 
register plaatsvindt, treedt een geprogrammeerde reset op. 
In de tabel van de samenvatting van de registers staat het 
effect van deze reset. 


Command Register. 

Bit O bepaalt het DTR signaal en de ontvangerstatus. Via bit 
1 wordt beslist of er al dan niet een interrupt ten gevolge 
van een vol receive data register wordt gegenereerd. Bit 2 
en 3 besturen het RTS signaal en daarmee de 
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CONTROL REGISTER 






BAUD RATE 


STOrat:s GENERATOR 


DATA WORD 
LENGTH 





RECEIVER CLOCK SOURCE 


@ = Enseenat Recemer Ciock 
Ys Bout Kate Generator 


“Tus allows lor Soet anemoon 


(4 eta bets plus Daeny). En 0 
HAROWAN RESET NN KEK KN EN KN KN 
poonmanser | | -|-{-l-|-T-T-| 

COMMAND REGISTER 









DATA TERMINAL READY 


0» Orsante Recemer and An 
Isterrupts (STR negny 

11 Enable Aecerver and All 

Intesrupts (OTR low) 











Parity Orsabled=No Party Bt 
Gerarsled—No Pardy Ba Recone 











0 » ÎRD interrupt Enabtea trom Gut 3 
of Sjalus Aagister - 
1: IR interrupt Dusablea 


Mart Panty B Teenamdied. 
Parity Check Oesanted 
Scace Party Bit Teansmetted. 
Party Checa Desabieo 


NORMAL/ECHO MODE 
FOR RECEIVER 





PROGRAM RESET 


PAG.54- ATOM NIEUWS UNIVERSEEL 1/0 BOARD” BAD KAOSILEL 





zender operatie. Ook wordt hiermee bepaald et een interrupt 
ten gevolge van een leeg transmitter data register wordt 
gegeven. Bit 4 is normaliter O. Bit 5, 6 en ? hebben te 
maken met de ‘pariteits besturing en controle van zender en 
ontvanger. 


Control Register. 

Via dit register wordt het formaat van de seriele data 
bepaald. Bit 0...3 bepalen de baudrate: er kan gekozen 
warden uit een aantal standaard baudrates, afgeleid uit de 


kristal frequentie. Van de mogelijkheid om een extern 
kloksignaal aan te bieden wordt geen gebruik gemaakt. De 
interne baudrate generator wordt naar de ontvanger 


doorgeschakeld als bit 4 een 1 is. Zender en ontvanger 
werken dan met dezelfde baudrate. Bits 5 en 6 bepalen de 
lengte van het datawoord. Met -bit 7 kunnen er 1, 1-1/2 of 2 
stopbits gekozen worden. 


U ziet dat het programmeren nog al meevalt. Als het 
programma klaar is moet men nog de ATOM met de modem 
verbinden. Bij mij gaat dit als volgt: 


ATOM MODEM 
TXD TXB 
RXD RXD 
RTS CTS 
CTs DSR 
DSR. PCD 
DCD RTS 
PTR 

GND GND 





Ik ben momenteel bezig een universeel terminal programma te 
schrijven dat op eenvoudige wijze met verschillende 
woordlengtes, pariteiten stop- en startbits en baudrates kan 
werken. Als ik u vertelt dat het geheel ook nog telesottware 
downloading, prikbord editing en verzenden aan moet kunnen 
alles op een 40 # 24 scherm zult u begrijpen dat dit nog wel 
even kan duren, vandaar alvast dit verhaal. 
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Signal Description {Communications Interface) 


Yransmit Data (TxD}) 

TxD is an output line used to transter NRZ (Non-Feturn-lo- 
Zero) data to a modem. The LSB (Least Signilicant Bit) of the 
Transmit Data Register is the first data bit transmitted. The 
rate of data transmission (baud rate) is determined by he 
selected baud rate. 





Recelve Data (RxD) 

AxD is an input line used to receive NRZ input data from a 
modem. The LSB is always the tirst data bit received. Received 
data will always be at the GESSCS1's internally programmed 
baud rate or the baud rate of an axternaily generated receiver 
clock. The baud rata is a selection which is made by program- 
ming the Control Register. See Figure 6, Control Register 
Format, 








Recelve Clock (RxC) 

AxC serves as a bidirectionat “pin” which can be either the 16X 
Glock Input or the receiver SEX Clock Output. The 16X Clock 
Output mode results if the internat baud rate generator is 
selected for External Receiver Clocking. See Figure 6, Control 
Register Format, 


Re st to Send (ATS) 

ATS is an output line used as à contro! function to the modem. 
The state of RTS is determined by the contents of the Com- 
mand Register. Refer to Figure 7, Command Register Format. 


Data Carrier Detect (OCD) 

is an input line used to indicate cerries-detect output 
status from the modem. A low level indicates the modem cat 
signal is presant, anda high level indicates the modem cai 
signal is not present. DER is a high impedance inputand must 
aol be used as a no-connect. That is, il unused, this pin must 
be driven high or low, but not switched. 


NOTE: If Command Aagister Bit 0 is à high (Logic 3) anda 
change of state on DOD occurs, IRG will be sat, and the Siatus 
Register Bij 5 will reflect he new level. The state of DCD does 
not affect Transmitter oper: „but must betow (Logic Oj tor 
the Receiver to operate. id 















Cleur to Send (CTS) 

CTS is an input used to control Transmitter operation. The 
Transmitter is enabled when CTS is tow (Logic 0}, andis auto- 
maâticaliy disabled when CTS is high (Logic 1). 


Data Terminal Ready (OTR) 

OTR is an output line used to indicate G65SCS1 status to ine 
modem, and is controlled by the processor via BitO of the Com- 
mand Register. DTR tow (Logic 0} indicates the G6SSCS1 is 
enabled, while GTR hign (Logic 1} indicates the device is 
disabted 


Data Set Ready (DSR) 

is an input line used lo indicate modem status to the 
G6SSCH1. low (Logic 0) indicates the modem is “ready”, 
while a high (Logic 9 indicates the modem is in 8 “nor ready” 
state. Like OCD, DSA is a high impedance input and must not 
be used as « no-connecl. If unused, (his line must be driven 
either high or low, but nol switched. 


NOTE: If Command Begister Bit O is high (Logic 1}and a 
change of state on DSR occurs, IRO will be set, and Status 
Register Bit 6 will rafiecl the new level. The stale of SR does 
not affect either Transmitter or Receiver operation. 
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STATUS 


SET BY 








Parity Error 0 No Error 


i Error 


Framing Error Î 0 No Error Self Clearing 


1 Error 


nm 


CLEARED BY 





Self Clearing 


ad 









— 


Overrun 


eceive Data 
Register Fult 









Transmit Data 
Register Empty 












ANALOOG DIGITAAL OMZETTER 


Het gebruikte 
dat zowel 


IC, 
12- als 
Het IC heeft 4 
weerstand van 1000 Mohm. 
objecten gemeten worden. 


wordt verkregen met behulp van de 3 diodes. 







een uPD 7002, 
8 
omzettingstijd voor 8 bits is 4 ms 
analoge ingangen, 
kan derhalve ook âan hoogohmige 
spanning van 


Er 


9 No Error 


1 Error 
Re 9 Not Full Read Receive 


1 Full 














9 Not Empty 
1 Eupty 
o DED-niet ton 
1 DCD-niet 





Q DSR-niet 


1 DSR-niet high 


OQ No Interrupt 
1 Interrupt 


bits 


De referentie 










is een zeer 


Self Ctearing 


Data Register 


Write Transmit 
Data Register 





Not Resettable 
Retlects BeD-niet 
State 






Not Resettable 
Reflects DSR-nietj 
State 





Read 
Status Register 


veelzijdig IC 


omzetting toelaat. De 
en voor 12 bits 10 ms. 
elk met een ingangs 


2.5 Vv 
In totaal worden 


3 registers gebruikt, een ingang en twee uitgangsregisters. 


Het ingangsregister 


wordt gebruikt om 


de A/D omzetting te 


omzetting 


starten en om te bepalen of de 8 of 12 bits 
gewenst ís. 

Met bits 0 en 1 van dit register adres #BC20 wordt het 
kanaal nummer geselecteerd, In bit 3 wordt 12 of 8 bits 
omzetting geselcteerd. teen O geeft 8 bits onzetting). De 


overige bits zijn 0. 
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kB WR AO Al TYPE FUNCTIE 

H H Xx % STANDBY X 

H L L EN WRITE START A/D OMZETTIng 
L H L t READ STATUS/FINISH 

L H L " READ 8 BIT MIGH DATA BYTE 
L H H L READ . : 4 BIT LOW DATA BYTE 


TSatow L=LOw H=HIGH X=DON'T CARE 


Wil men als voorbeeld een 12 bits omzetting op kanaal 2 dan 
schrijft wen #OA naar dit register 09001010. 

Zodra de omzetting start wordt bit 7 van dit register 
geset,en dit wordt weer gecleared als de omzetting is 
voltooid. Men kan op pin 28 van het IC dit signaat ook 
„hardwarematig waarnemen. Als men link 5 maakt kan men op PAO 
van de VIA dít signaal bemonsteren totdat de omzetting is 
voltooid. Op bit 6 van het ingangs register is n busy 
Signaal aanwezig dat de inverse is van het end of conversion 
signaal in bit 7. Bij wen 8 bits omzetting is in het eerste 
uitgangsregister de waarde van de A/D omzetting te vinden 
als de omzetting klaar is. Bij een 12 bits omzetting zijn 
het alleen de 8 hoogste bits van het 12 Dits getal.Uit het 
tweede uitgangs register zijn de 4 laagste bits te halen. 
Deze kunnen dan bij de laatste 8 bits opgeteld worden. De 
aximale waarde die zo is te bereiken is 4095. 

Rest nog te vermelden dat de klokfrequentie tussen de 100 
KHz en 3 MHz moet liggen. De integratiecondensator et dan 
de volgende waarde hebben: 














C1 tuF} > 0.029/f klok (MHz) 


Met link 5 kunt u het EOC tend of conversion) signaal 
doorgeven aan PAO zodat als zeer snelle oazetting 
noodzakelijk is met dít bitje b ken kan worden of de 
omzetting al klaar is. (klaar =O) 

De referentie spanning, benodigd voor de A/D omzetting, 
wordt hier en op de BBC computer verkregen door drie IN4148 
diodes,die tesamen een reterentie spanning van 1.8v 
produceren. Het is echter ook mogelijk een reterentie zener 
hiervoor te gebruiken. Een LM3J62 geeft 2.490V. Deze is 
tevens eenvoudig aan te sluiten. (zie schema). Binnen het 
temperatuur bereik O -— 70 graden Celsius ís de maxinale 
afwijking 1.8uV, De lange termijn stabiliteit is bij 25 
graden Celsius beter dan 20 ppm terwijl de inwendige 
weertand 0.4 OHM is. De schakeling kan dan eenvoudig 
gebruikt worden voor metingen. 
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MDCR TURBO INTERSWITCH. 





De laatste tijd ben ik me gaan ergeren aan de ìage 

snelheid van de MDCR. Ik ben eens gaan informeren wat een drive 
kost.De prijzen hiervan variëren sterk van FL. 199,90 tot 
FL. 500,00. Daarbij komt ook nog eens de kosten van een 
dos-kaart, die ongeveer FL. 250,00 gaat kosten, wil je een goede 
kopen,die voor alle drives geschikt is. Een vriend van mij bood 
mij een drive aan voor FL. 95,00. 
Dit is geen geld maar de drive was er dan ook naar. Deze bleek 
nl. zéér langzaam te zijn. De seek-time track to track bleek 25 
msec. te zijn. Bij een beetje drive is deze maar 3 msec. De 
start/stop time bedroeg 1 sec; terwijl dit bij de meeste drives 
rond de 50 msec. ligt, Daarbij kwam ook nog dat track 0 
afgesteld moest worden. Het afstellen van track O is een zeer 
secuur en arbeidsintensief werkje. Gebeurt dit niet 100 % dan 
kun je je hele drive niet gebruiken. Het was mij toen al snel 
duidelijk dat deze drive naar het rijksmuseum voor oudentieke 
gebruiksvoorwerpen in Sint Jansklooster, (Noordoostpolder), 
gezonden moest worden. Ik heb geen zin om zoveel geld in iets te 
steken waar je niets voor terug krijgt. Met een overvloed aan 
energie heb ik de MDCR eens onderhand genomen. Een MDCR op drive 
snelheid zou toch een ideale oplossing zijn. 

Er is een potmeter (R4) op de print aanwezig waarmee de 
spoelsnelheid van de MDCR geregeld kan worden. Door deze 
helemaal op O af te regelen is het mogelijk om zeer veel data op 
een bandje te plaatsen. De looptijd wordt hierdoor echter veel 
te lang. Door tijdens het spoelen van de bandjes deze potmeter 
helemaal de andere kant op te draaien is het mogelijk om de 
spoelsnelheid op max. te zetten. Dit heeft mij op het idee 
gebracht om hiervoor een schakeling te ontwerpen die dit 
automatisch doet. Tijdens alle commando's moet de MDCR op valle 
toeren draaien terwijl tijdens "saven’ de MDCR op zijn laagste 
snelheid moet spoelen. De schakeling zoals deze op de bijlage 
afgebeeld staat zorgt voor deze omschakeling. De werking van 
deze schakeling is, denk ik door iedereen, te begrijpen. Tijdens 
de REW , FWD en andere commando's wordt de voedingsspanning van 
het MDCR motortje ingesteld d.m.v een bepaald circuit. Indien de 
motor met teweinig toeren draait zal een tachometer een signaal 
afgeven aan een timer » Hier wordt een ref, signaal (R4+R5+C2) 
vergeleken met het signaal uit de tachometer.Indien deze 
signalen niet gelijk zijn zal de spanning aan het motortje 
bijgeregeld worden totdat dit wel het geval is. Door nu R4 kort 
te sluiten verander je dus het referentie-signaal en daardoor 
dus ook de spoeïsnelheid van de MDCR. Bij het kortsluiten van de 
weerstand wordt de snelheid groter. 


Ik doe het zelf! 
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Verdraaien we nu de potmeter op zijn uiterste stand zodat de 
MDCR op zijn laagste toeren draait, dan kunnen we met de nieuwe 
schakeling de MDCR op 2 toeren laten draaien. Bij kortsluiting 
draait de moter op volle toeren terwijl anders de motor zeer 
langzaam loopt. Dit mag echter alleen gebeuren tijdens het 
SAVE-commando. We gebruiken nu het write command-signaal om de 
schakeling te sturen. Bij het schrijven op de band wordt de 
buffer gedisabled waardoor de uitgang in tri-state komt te 
staan. De uitgang (9) van het buffer wordt nu door de- weerstand 
naar de +12V getrokken. Hierdoor zal de transistor sperren. De 
weerstand is niet meer kortgesloten, waardoor de MDCR op zijn 
laagste snelheid doorloopt. Es de schrijfactie afgelopen, dan 
wordt het buffer weer geënabled waardoor de ingang geïnverteerd 
aan de transistor wordt aangeboden. De basis wordt neg. t.o.v. 
de emittor waardoor de transistor in verzadiging komt. De 
weerstand R4 wordt kortgesloten en de MDCR loopt weer op volle 
toeren, De "TURBO" is hierbij dus ingeschakeld. Het systeem 
werkt dus geheel zelfstandig, vandaar de naam "TURBO 
INTERSWITCH" , 

Doordat de potmeter R4 veranderd ís, zal de MDCR nóóit meer ep 
zijn oorspronkelijke snelheid kunnen draaien. Om de MDCR opnieuw 
af te stellen is een zeer moeilijke bezigheid. Daarom heb ik 
gekozen voor een betere oplossing. De weerstand R4 en R5 worden 
in= of uit-geschakeld met een extern circuitje. Dit heeft als 
voordeel dat je Óf de MDCR op "TURBO" zet Óf op zijn 
oorspronkelijke snelheid laat functioneren. 

Een alternatief dat ik iedereen zal aanraden omdat Je anders 
teveel aan de MDCR-specificaties gaat sleutelen. 

Mochten er onverhoopte problemen opduiken, dan kun je nog altijd 
de MDCR op zijn standaard waarde ingesteld laten staan. 

De weerstandswaardes van het circuitje zijn erg krities. Hoe 
lager deze waardes des te sneller werkt de MDCR en dus ook des 
te meer data kan er op de band. 


Er is echter een probleem. 


De laad-snelheid en de save-snelheid hebben een bepaalde 
verhouding. Indien er zéér langzaam gesaved is kan men niet 
zonder meer zeer snel inladen. Tevens moet er rekening mee 
gehouden worden dat bij het zeer snel terugspoelen van het 
bandje eens het einde van het bandje in zicht komt. Bij de 
“standaard versie" is er een signaal dat het einde van een band 
detecteerd. Bij de "TURBO-versie" zal dit signaal te laat komen 
waardoor de band te lang belast wordt. Het is mij drie keer 
voorgekomen dat de MDCR zo hard liep (spoeltijd van 30 sec) dat 
de MDCR niet stopte op het einde, waardoor de band aan de 
opgerolde zijde van het rolletje afschoot. Ì ‚ 

De band wordt dan vele malen om het spoeltje gewonden vóórdat de 
MDCR " einde band" detecteerd en dus stopt. Je bent dan goed 
fout bezig. 

Ten eerste moet je je bandje gaan openbreken om het band weer in 
orde te maken. 

Ten tweede ben je dan per keer ongeveer 2 meter band kwijt. zet 
je het bandje dan niet 100% in elkaar dan zui je steeds 
leesfouten krijgen, zelfs in de "standaard versje, 
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Ik zeg dit maar alvast, omdat ik weet dat er knutselaars onder 
ons zitten die zich niet aan de weerstandswaardes gaan houden. 
“Ik had nog toevallig een waarde liggen die een factor 2 lager 
lag" , zeggen ze dan. Het is zeer goed mogelijk,dat bij jouw 
MDCR deze waardes best lager mogen zijn. Je mag het gerust 
proberen maar ik zal je zeggen dat ik twee bandjes a FL.14,00 
incl. programma's kwijt ben geworden Maarja, op school leer je 
niets en dat kost veel meer! 

Op de tekening van de printlayout is duidelijk te zien waar de 
weerstanden R4 en R5 zich bevinden en hoe de draaden ernaartoe 
moeten worden aangesloten.Weerstand R5 wordt uit de MDCR 
gesoldeerd Deze weerstand kan weer gebruikt worden op het 
interface printje. 

Het hele "TURBO" gebeuren past op het interface printje. Op de 
tekening staat duidelijk weergegeven hoe de weerstanden 
geplaatst moeten worden en waarnaar de draden lopen. De 
schakelaar heb ik op de voorzijde van de MDCR bevestigd, 
waardoor de "TURBO" gemakkelijk aan/uit te zetten is 

Bent U niet 100% goed onderlegd met het hanteren van een 
soldeerbout, dan is het raadzaam om dít door meer deskundige te 
laten gebeuren. Je bent nl. bezig met hardware. Fouten hierin 
komen dan ook hardwarematig aan, heel hard dus. 

De meeste mensen zullen nu wel hard van stapel lopen met 
allerlei vragen maar ik probeer eerst eens sommige van deze 
vragen zélf te beantwoorden. 

Ik ben mij terdege bewust dat deze wijziging niet zonder meer 
uitgevoerd kan worden. 

Het laden van oude bandjes kan natuurlijk zonder problemen 
gebeuren. Het kan zijn dat er tijdens het laden "error 103" op 
het scherm verschijnt. De MDCR kan dan de hoge leessnelheid niet 
aan,‚op dát moment, Door nogmaals het LAAD-commando te geven zijn 
meestal de problemen verholpen. 

De bandjes moeten nl. op een lagere of gelijke snelheid gesaved 
worden dan waarmee ze gelezen worden. Dit is bij deze schakeling 
dan ook het geval. Bij "oude" bandjes is op een relatief hoge 
snelheid gesaved maar er wordt nu op de maximale snelheid 
geladen. Dit werkt dus. Het saven van data geeft meer problemen. 
Tijdens het saven wordt de header bijgewerkt. Dit gebeurt op de 
lage snelheid. Je hebt dus niet zoveel bandiengte nodig als 
voorheen. Dit heeft als gevold dat bij "oude" bandjes een 
opening ontstaat tussen het eerste programma en de header. 
Hierdoor zullen er errormeidingen gegenereerd worden.Door nu £ 
maal het LAAD-commando te geven ben je over deze "lege" plaats 
heen, en kun je verder alle programma's weer laden.Dit is erg 
vervelend dus een andere mogelijheid is om je bandjes om te 
laden van “gewoon' naar "TURBO", Dit is inderdaad een zeer 
tijdrovende zaak als je 100 bandjes hebt, maar ik denk dat je er 
zoveel niet zult hebben. Een derde alternatief is om de 
schakelaar op je MDCR om te zetten waardoor je van "gewoon!" naar 
HTURBO" overschakeld tijdens het saven. Je kunt dan laden op 
“TURBO snelheid en saven op "gewone' snelheid. Bedenk daarbij 
wel dat bij het vergeten om te zetten van de schakelaar het 
probleem van verkeerd plaatsen van de header blijft. 
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Schema MDCR Turbo 
Inder switch 





Werking. Turbo surf 


Bij een schrijfactie wordt IC 3 in tri-state gezet. 
Hierdoor zal de uitgang (9) naar de +12V worden getrokken door 
weerstand 10K ohm. 
De basis-emittor spanning is dan kleiner dan 0,7 Volt waardoor 
de transistor uit geleiding komt. De weerstand van 200K ohm 
is niet meer kortgesloten waardoor de MDCR op een lage snel- 
heid zijn data op de band wegschrijft. 
Is de schrijfactie afgelopen, dan zal het IC uit tri-state komen 
en de uitgang laag maken door zijn inverterende werking. 
De basis wordt nu negatief t.o.v. de emittor waardoor de transis- 
tor in geleiding komt en daardoor weerstand R200K ohm kortsluit. 
De MDCR zal nu op een hogere snelheid dan “normaal" gaan spoelen. 
De MDCR saved nu zeer langzaam maar spoelt zeer snel. 
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Aansluiten TURBO INTERSWITCH, 


Weerstand R5 (301K ohm) wordt aan de zijde waar no 1 
staat (zie bijlageB) losgesoldeerd en omhoog gebogen. 
Aan de weerstand wordt een draadje gesoldeerd dat verbonden wordt met 
de schakelaar. 
Doordat de weerstand omhoog gebogen is, ontstaat er een leeg 
soldeereilandje. Hieraan wordt een draad gesoldeerd die met het 
middencontact van de schakelaar verbonden wordt. 
De draden kunnen allemaal aan de komponentzijde van de print 
bevestigd worden. 
De V* draad wordt aan de achterzijde van de print gesoldeerd. Deze 
draad komt aan de loper van RA (100K ohm) ; (dit contact loopt naar 
pen (8) IC 4, op de MDCR print) en wordt vastgesoldeerd aan weerstand 
R1OK ohm, op het interface printje. 
De laatste draad die van de schakelaar afkomt, wordt aan R274K ohm op 
het interface printje gesoldeerd. 
Hiermee zijn de draden vanuit het interface printje naar de 
buitenwereld gerealiseerd. 
De laatste twee draaden worden op het interface printje zelf gelegd. 
Vanuit pen (9) IC 3 wordt een draad gesoldeerd naar de weerstanden 
RIOK en R33K ohm (Dit staat op de layout aangegeven met WE (9) IC 3.) 
De laatste draad gaat vanuit pen (10) IC3 naar de +5Volt = pen (16) 
IC 3. 
Diegene die de pennen van IC 3 hebben afgeknipt,zoals beschreven 
staat in het Bronsgroen Eikeltje no 6, zullen zich een nieuw IC 
moeten aanschaffen om deze schakeling te kunnen realiseren. 


Een goede tip: knip nóóit IC pootjes van een IC af.Ze dienen 
altijd wel ergens voor! 


De weerstanden R1OK ohm, R33K ohm , R200K ohm (1%) en R274K ohm (1%) 
worden gesoldeerd zoals aangegeven staat op de lay out "TURBO". 
De transistor BC 557 wordt met de EMITTOR aan de V* op het printje 


esoldeerd. 
8050 * Bijlage C 
Als alles goed vastgesoldeerd zit werkt de TURBO INTERSWITCH nu. 


Bij rook brandweer bellen tel. 04750 — 93333. 


Indien te vaak "error 103" ontstaat zal de weerstand R274K ohm moeten 
worden verhoogd naar R300K ohm. 

Hierdoor zal de spoelsnelheid afnemen maar de opslagcapaciteit toch 
vergroot worden tot 91 KBytes. 


DIEGENE DIE NIET GOED OVERWEG KUNNEN MET 
EEN SOLDEERBOUT RAADPLEEG EEN MEER DESKUNDIGE !!! 


{ IETS KAPOT GEMAAKT IS SNELLER GEDAAN DAN GEREPAREERD, 
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Een vierde mogelijkheid is om te denken, die vent heeft een hele 
rij pannen los en je blijft van de MDCR af. Dit laatste is 
natuurlijk jammer, omdat je nu niet profiteerd van de grote 
opslagkapaciteit van je MDCR. 

Bij de “standaard! MDCR kon ongeveer S56Kbytes geheugen gesaved 
worden. (afhankelijk van aantal programma's). Nu is deze 
opslagcapaciteit 


* 1024 header 


1 
5 * 16384 5 * 16K programma 
1 * 10240 1 * 10K programma 





Je opslagcapaciteit is hiermee vergroot van S6K naar 91K = 35K 
per zijde. Dit is dus 70K per bandje. Zelf heb ik 10 bandjes 
conclusie 700K meer data voor maar FL. 1,00. 

Ik denk dat dit door IBM niet te maken is, 


Zijn er nog vragen dan kun je mij altijd een briefje 
schrijven.Een antwoord krijg je altijd terug. (wachttijd 6 weken 
als er veel mis gaat). 


technische gegevens MDCR TURBO INTERSWITCH. 


MDCR MDCR TURBO INTERSWITCH 
spoeltijd 96 sec. 66 sec. 
storage cap. 56 KBytes 91 KByte 


Keren opmerking **…… 


Bij gebruik "INI" dat beschreven is, In Bronsgroen Eikeltje 
no:4-1986 en Atom Nieuws no:6 jaargang 5,(snel initialiseren van 
de band), wordt de tijdsbesparing nog groter omdat tijdens "INI" 
de MDCR op lage snelheid werkt. 


Indien men het bandje wil wissen kan de MDCR van de "TURBO" 

afgezet worden,waardoor de band sneller gewist wordt. 

Veel succes ermee, 
Jan Swinkels 


Dorpsstraat 41 
6093 EA Heythuysen. 
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ATOMIC POWER A&B 
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GELEZEN EN A & B 


Maart 1927 


Atomic Power 


Old computers never die, they simply get 
taken up by user groups. | received a letter 
fram a bunch of enthusiasts in the Nether- 
tands who have done some amazing things 
to Acorn's forerunner to the BBC Micro 
and Electron, the good old Acorn Atom. 

Far any of yau who never got the chance 
to see this now axtinct beast, It was 4 com- 
puter with L2K of ROM and RAM, ie was 
the fiest British home micro with a decent 
QWERTY keyboard, with more RAM than 
ROM, it was innovacive in that it was the 
fest computer to suppert colour graphics 
and it had à well documented data bus, 
vehich made it easy to connect extermal 
devices. 

Ie had a BASIG interpreter that was the 
complete antithesis of BBC BASIC — it was 
complezely unstructured! String oper- 
ations were reversed, and in the last days of 
the Atom, just after the release of che Elec- 
ton, Acorn released a BBC Micro board 
thac attempted to emulate BBC BASIC 


CONTINUE S Pe 


CAMPUTTRIG 


(which ie did quice well} as well as emulating 
the various screen modes as a sort of fare- 
well gesture. 

Anyway, back to rhe lerter from N.Stad 
who writes from, Plataanweg, in the 
Netherlands, he writes: 

=| am de chairman of the federation of 
ATOM users and since ovming my Atom, [hove 
expanded the machine into quite o powerful 
system. At the moment my setup comprises of 
an 80 column board, a modem, the original 
disc controller, 68K of RAM of which 32K is 
sideways ROM (ar pseudo ROM) and 16K of 
screen RAM | have built an BO column video 
Pracessor around the EF9345 chip, and in the 
near future, Ì will be adding a ZBO second pro- 
cessor card to the system. To make alt of this 
possible, | hove used our own “federation” 
extension board to which the other devices are 
connected. } am not the oniy one in Holland 
with this configuration, and we have users who 
are constonty experimenting with the Atom 
and the Electron. 

1 woutd like te draw your readers attention to 
aur latest development which is the Z80 card. 
It has sóme impressive features — being on 
BMHz ZB0, 64K of DRAM (Dynamic RAM) a 
Z80 PIO for communication with the Atam and 


the disc controller. We have developed our 


awn GDOS card and it behaves ike a very 
friendly CP/M computer! As a user group, we 
rely on de feedback and ideas from your read- 
ers, so if any of your readers own an Atom and 
would like to get in contact with us, could you 
Please forward our name and address to 
hem2” 


Thank you for your letter Mr Sead, and | 
hope that you ger à flood of letters. You 
aan write to the FEDERATION ATOM 
COMPUTER CLUB NEDERLAND at Plat- 
aanweg 47, (544 PB Zaandijk, Nedertand. 
Don't forget to enclose an SAE or an inter- 
national reply coupon. (t is clear that chey 
are dedicated to their Atoms, and you 
know. would’ half mind getting an Atom 
myself just ta beef it up to see what it can 
do…any offers? 


